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ABSTRACT 

While atmospheric icing no longer poses a serious threat to the operation of 
large transport aircraft equipped with anti- or de-icing devices, the operating 
environment and structural characteristics of general aviation aircraft and helicopters 
have generally prevented manufacturers from installing equally effective devices in 
these craft. Icing is particularly troublesome for helicopters. Accretions upon the 
main rotor blade may increase the torque requirements to beyond the engine's 
Capabilities, resulting in a forced landing. Asymmetrical shedding from the main and 
tail rotors may cause severe vibration and structural damage. 

This dissertation describes a numerical model which has been developed to 
predict the characteristics of rime ice accretion on an airfoil in a steady, inviscid, 
irrotational, incompressible, two-dimensional flow. The airflow about an arbitrarily 
shaped airfoil is calculated by a surface vorticity substitution technique. The full set 
of equations describing the accelerated motion of supercooled cloud droplets are 
integrated with a variable time step to yield the trajectories. An automated routine 
determines the placement of trajectory starting points for the efficient calculation of 
the local collision efficiency curve. Several such curves may be combined to 
approximate the effects of a natural droplet size distribution. The thickness of the 
accretion (calculated under the assumption that all droplets freeze immediately upon 
impact) leads to a determination of the resulting profile after a limited accretion period. 
This new profile is used to recompute the airflow about the airfoil, the droplet 
trajectories, and the other steps above, to give a simulation of time-dependent 
accretion. Efforts are made to optimize the code’s efficiency while maintaining a high 
level of precision. The simulations are compared with previous analytical and 
experimental results. The agreement is generally quite good, although a lack of 
precise experimental simulations prevents a complete verification of the model. Two 
of the model's applications are presented: to study the change in ice accretion as a 
result of a change in the airfoil profile; and to test an airfoil scaling theory for its 
accuracy. The thesis concludes by recommending a series of enhancements to the 
model, and points out the need for improving the experimental simulations which couid 


be used to verify the model. 
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The collision efficiency curve of Case 29 as a solid line. The 
dashed line corresponds to the results of Bragg (1981). 
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As for Fig. 34, but with Re , =109 and K=0.407 (Case 30). ceccccsccccssssssssscsssssesssesssessen 151 


The solid lines represent the collision efficiency curves for 
Case 31. The droplet diameters are 25.5 and 13.2 um. The 
non-dimensional parameters for the MMD droplet (186 um ) 
are Re, =96.2 and K=0.257. The dashed line is the 
experimentaliresult-of Geldercet a/.7¢1 956), accssestct tect cectetwslltushiccccoorenseseesnerrsssctnctnaracen 152 


The solid lines represent the collision efficiency curves for 
Case 32. All parameters remain the same as in Fig. 36, except 
that a variable length filter has been applied to smooth the mean 
curve. The dashed line gives the comparable result from 
(Ee Cour es Man (2S) 2) Oe en OO eee ER Oe Ore Ce 152 


The solid lines represent the collision efficiency curves for 
Case 33. The heavier line without symbols is once again the 
smoothed g curve. The dashed line is from Gelder et a/. 
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The collision efficiency curves of Case 35 as solid lines. The 
heaviest line without symbols is the g curve for the droplet 
distribution used. The dashed line represents the results of 


Geldeaict al. ali] 9DSG6)TO Re apa 96 flO 27 ope cant ceca he za ass socnmerssencnsoresagpeesomrnones 153 
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The collision efficiency curves of Cases F (short dashes), G 
(long dashes), and 40 (solid line). Re co =G6.2 K=O0.257 ocesesssssssesmnnnnnssnecceeseessssssnnennanesee 155 


The trajectories of droplets in a flow about a NACA 65-212 
WL Ol Tie CONGHIONS: oF OvINOSe OT. GaSe FO. acca c eects perenne emai cman 156 


The trajectories of droplets in a flow about a NACA 64-215 
Hick's modified airfoil. The conditions are those of Case 41. 
Fe ee Ta RIN LOA) aca ales te cocil pen cn fsasearscees pecrncare nace sed eet iurbnsc cn cncosnaaemceastiznet 156 


The solid line represents the collision efficiency curve for Case 
41. The dashed line is from the results of Bragg ef @/. (1981). nesses vey 


The profile of an accreted layer on a cylinder. The solid line 
corresponds to Case 43 where surface curvature has been 
taken into account. The long dashed line shows Case 42 with 
the thickness calculated as if the substrate were !ocally flat. 
The short dashed line displays the experimental results of 
Lozowski et a/. (1979). Re, =49.0 K=1.624 WHO.157 wncccrsssssnsssesrseesssseessereresseneceent 17 


The profile of an accreted layer on a cylinder. The solid line 
with symbols is for Case 44. The solid symbol-less line 
shows the profile of the experimental results of Lozowski 
et a/. (1979). The dashed line is their theoretical prediction for 
the same Conditions. Re — =49.0 K=1.624 0 HO.157 eessssssessssscssseesssessesssensssssnsssesonesnernnsess 158 
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49 The collision efficiency curves of Case 46 are displayed as 
solid lines with symbols (droplet diameters are 27.0 and 14.4 
um for the inner curve). The heavy solid line is the smoothed 
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50 Accretion on a cylinder. The accretion profile of Case 45 is 
shown as a solid line; the profile of Case 46 is dashed. 
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51 The profile of an accreted layer on a cylinder. The solid line 
with symbols is for Case 46. The solid symbol-less line 
shows the profile of the experimental results of Lozowski 
et a/.. The dashed line is their theoretical prediction for the 
Pune otes fe LWC=0.8 g m? Re,=49.0 K=1.624 
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52 The collision efficiency curves of Case 48. The heavy solid 
line without symbols is the filtered 8 curve for this case. 
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53 As for Fig. 50, except for Cases 47 and 48 respectively.  ecccesssssssssesnssssesanssssesnsssee 


54 The profiles of accreted layers on a cylinder. The solid line 
with symbols is for Case 48. The line of long dashes 
corresponds to Case 46 for two categories of droplet sizes. 
The solid symbol-less line is the experimental result of 
Lozowski et a/. (1979). The short dashed line is their corre- 
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55 The profile of an accreted layer on a cylinder. The solid line 
with symbols represents Case 49. The solid symbol-less line 
is for the experimental results of Lozowski et a/. (1979). The 
dashed line is their theoretical prediction for the same 
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58 The collision efficiency curves for Case 52. The solid lines 
represent layer 3 - unfiltered (with symbols) and filtered (with— 
out symbols). The two dashed lines are the unfiltered and 
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59 The profiles of accreted layers on a cylinder. The solid lines 
with symbols display the profiles of the three layers of Case 
52. The solid symbol-less line is the experimental result, and 
the short dashed line, the theoretical result of Lozowski et a/. 
(1979) for the same conditions. The long dashed line 
corresponds to Case 48, that is, for a single layer. Re, =49.0 
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60 The collision efficiency curves for layer 1 of Case 53. The 
outer and inner solid lines with symbols are the 8 curves for 
the 27.0 and 144 um _ droplets respectively. The solid 
symbol-less line is the unsmoothed B curve. Re. =49.0 
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61 As for Fig. GO, but for layer 2. nssssssssusssseeesnseceesussseesunsesemssestnsussessssnsseesensseseansseseussssesnunssseset 
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The profiles of the three layers of accretion on a cyiinder in 
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The profile of an accreted layer on a NACA 0015 airfoil at 0° 
angle of attack. The solid curve with symbols represents the 
results of Case 54. The dashed line shows the experimental 
ata RA aces & Lozowski (1978). Re. =98.7 K=0.387 
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The collision efficiency curves for Case 55. The solid lines 
represent layer 1 — unfiltered (with symbols) and filtered (with- 
out symbols). The two dashed lines are the unfiltered and 
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As in Fig. 64, except for the three layer example of Case 55. 
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The profile of an accreted layer on a NACA 0015 airfoil at 8° 
angie of attack. The solid curve with symbols represents the 
results of Case 56. The dashed line shows the experimental 
ary of Stallabrass & Lozowski (1978). Re. =98.0 K=0.387 
w =0. LS) ce ae i tts eas ch oc Te SN GO RR Be OTC I a a 


Pssingig. 65, but for Case 57 langle Of attack 1S 8)” .--.-evvcscuccssseconmuenrsorassesnieeeesseereesee 
As in Fig. 67 except for the three layer example Of CaS@ 57. oecccccssssssseeeeseeseeees 


The trajectories of droplets in a flow about a NACA 0012 
airfoil at a 5.7° angle of attack, Re,=144 K=0.436 The 
oferpie:] Vek ye tet preg eke hi yee Ge YL} il gl lehtey ul lp un Me Soe ne ak ni RRR nl So SNORE SINE aR Da 


The profile of an accreted layer on a NACA 0012 airfoil at a 
5.7° angle of attack. The solid curve with symbols represents 
the results of Case 58 The dashed line shows the 
experimental results of Stallabrass (1958). Re. =144 K=0.436 
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The collision efficiency curves for Cases 58 and 59. The solid 
lines represent Case 58 or equivalently layer 1 of Case 59 
unfiltered (with symbols) and filtered (without symbols). The 
two dashed lines are the unfiltered and filtered curves for layer 
Chole PARI LBS SS RUIN Ia et esl heel ate ie ee eee aT REE Ueenirn TE caCians ans Se Sac EAP Loe eS 


As in Fig. 71 except for the three layer example of Case 59. 
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The trajectories of droplets in a flow about a NPL 9615 airfoil 
at a 5.7° angle of attack. The conditions are those of Case 60. 
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The collision efficiency curves for Cases 58 and 60. The solid 
lines represent Case 58 - unfiltered (with symbols) and filtered 
(without symbols). The two dashed lines are the unfiltered and 
PE MRTRS CEI SOE aS aah caer atc concer croseeactnnpcentesennuntneeonnesncesepptaiactosvensgreneeSoeeenPoeere 


The solid lines represent the profile of an accreted layer on a 


NPL 9615 airfoil at 5.7° angle of attack (Case 60). The dashed 
lines are for a NACA 0012 airfoil under the same conditions 
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(Case 58). The two airfoils are similar except that the NPL 
9615 has a drooped-nose extension to the NACA 0012. The 
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The collision efficiency curve for Case 12 as a solid line with 
symbols, and for Case 27 as a dashed line’ Case 12 
represents a Joukowski 0015 airfoil, and Case 27 represents a 


NACA 0015 airfoil Under the Same CONCITIONS. icccccccecccccccssseccoccvecssecsssucessessersssseesseses 


The accreted layer profiles corresponding to the collision 
efficiency curves of Fig. 77. The dashed line is for the 
Joukowski 0015 airfoil. The solid line is for the NACA 0015 
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The functional dependence of the drag coefficient C. upon 
the Reynolds number Re. The short dashed lineDis the 
log-log least squares fit for 25.5 um droplets in Case 32; it 


has a slope of -0.66. The long dashed line is the fit for 13.2. 
um. Gcopietesin:Gase! S2nityhnas esiope iofonO. Zils ck E es cccceeeerenneneeree 


A comparison of the collision efficiency curves for Case 32 
(dashed lines) at full scale, and Case 61 (solid lines) at 
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Notation used to locate the ordinate value for a given airfoil 
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1. INTRODUCTION 


1.1 Airfoil icing: the problem. 

As air transport developed during the 1930's and 1940's, an increasingly 
greater emphasis was placed upon the need for all-weather operations. This had 
become possible with the advent of sufficiently advanced avionics so that pilots could 
fly in cloud and precipitation via IFR (instrument flight rules), that is, without the need 
for visual contact with the ground or horizon. It was soon discovered however, that 
flight through clouds which were composed of supercooled water droplets could lead 
to carburetor icing, and ice accretion on the propellors, struts, antennas, leading edges 
of the wings and tail, and even on the aircraft fuselage itself. At times such icing 
could cause a severe loss in performance, resulting in a forced landing or even a stall 
in mid-flight. . 

In an effort to find a solution to the icing problem, research began in earnest in 
several countries, virtually simultaneously during World War !l. The U.S. National 
Advisory Committee on Aeronautics (NACA) undertook a number of theoretical and 
experimental studies into icing, some of which will be outlined below. This work led 
to an increased understanding of the icing problem, and it allowed engineers to design 
anti- or de-icing equipment for the larger transport aircraft where sufficient weight 
and power reserves permitted it. One popular solution was to use the hot engine 
bleed air to heat areas prone to icing. Another solution involved the use of pneumatic 
boots on the leading edges of the wings to break the ice away periodically. 

With the advent of jet aircraft, the icing problem became less severe since 
these planes could rapidly climb through icing regions to the 30,000 or 40,000 foot 
levels where the problem essentially did not exist (Beheim, 1978a). The relatively 
short periods that such aircraft did spend in descent were not a significant problem 
either because the lighter fuel load gave the plane an even greater power reserve. As 
a result, the research effort in icing abated somewhat after the 1950's. 

The early emphasis in icing research was directed toward large commercial and 
military transport aircraft. However, according to Beheim (1978a) "the icing protection 


requirements for ... small aircraft are so uniquely different from those for large 
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transports that an extrapolation of the current base of icing technology is clearly 
inadequate. The components of these aircraft are smaller so proportionately heavier 
accretions of ice are more likely to occur. Consequently, their aerodynamic 
performance will deteriorate more drastically." The large power reserves and 
sufficient quantities of high pressure heated air which exist on the larger airplanes are 
not available in light general aviation aircraft A second class of aircraft, the 
rotorcraft, is also plagued by icing problems. For helicopters, ice accretions can be 
particularly dangerous. Ice forming on the main and tail rotors causes an increase in 
airfoil drag, thereby requiring an increase in engine power to maintain altitude (Lake & 
Bradley, 1976). If sufficient ice forms, it can lead to unexpected stall on the trailing 
rotor blade (Stallabrass, 1958a). Further, the centrifugal forces acting on the ice, 
combined with the rapidly varying blade pitch and blade flexing in forward flight, may 
Cause portions of the accreted ice to be shed. If this shedding occurs asymmetrically, 
severe vibrations and structural damage to the helicopter can result (Lozowski ef a/., 
1979). Ice chunks leaving the tail rotor may hit the main fuselage causing damage 
there. Also, ingestion of ice chunks into the turbines may produce damage to the 
compressor blades causing a loss of power. Icing of the windshield can result in a 
loss of visibility, and if ice should form on critical control linkages in the rotor hub, 
violent loss of control may result (Stallabrass, 1958a). To date, only the French PUMA 


helicopter has been certified for unrestricted flight in icing conditions (Lecoutre, 1978). 


1.2 The icing environment. 

The operational environment of helicopters and light aircraft is such that icing 
conditions are much more likely to be encountered by these craft than by jet aircraft. 
Helicopters in particular are routinely required to supply oil rigs, to fly search and 
rescue missions, and to perform anti-submarine duties all over the ocean where the 
temperature and liquid water content of any clouds that are present could lead to 
hazardous icing in winter conditions (Ryder, 1978). 

In the United States, the Federal Aviation Administration (FAA) has set down 
guidelines (FAR-25) regarding the conditions which aircraft must meet if they are to be 


certified for IFR operations through supercooled clouds. The aircraft must continue 
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to operate safely through stratiform (continuous icing) and cumulus (intermittent icing) 
clouds where the combination of liquid water content (LWC), air temperature, and the 
droplet distribution representative mass median diameter (MMD) are defined by the 
solid lines of Fig. 1. The data which were used in drafting these regulations were ob- 
tained from measurements made by transport aircraft in the late 1940's and early 
1950's (Lewis, 1947; Lewis & Bergrun, 1952). These regulations as they apply to 
helicopters have come under increasing attack in recent years (Werner, 1975; Rosen & 
Potash, 1981; Frost et a/., 1978) because they may be too stringent They appear to 
be based on exceedance levels of 0.1%. Also these regulations may not be appropri- 
ate for the lower altitudes at which helicopters fly. Re-analyzing Lewis & Bergrun’s 
data, Werner (1975) has concluded that the 1% exceedance probability curves for 
severe icing for three areas in the United States are as shown by the dotted and 
dashed lines in Fig. 1. Based upon their results, he has recommended a new set of 
atmospheric icing criteria for helicopters as set out in Figs. 2 and 3. The FAA has 
requested that the National Aeronautics and Space Administration (NASA) conduct 
research to update the data upon which FAR-25 is based. This work is proceeding 
(Jeck, 1981). 

Frost et a/. also express their frustration with the strict icing criteria applied to 
certifying helicopters for IFR operations. The FAA continues to require natural ice 
testing, a costly, time-consuming and uncertain means of achieving the desired goals. 
They claim that the upper limits of the meteorological design cirteria as defined in 
Fig. 1 are rarely encountered in natural testing. Helicopters are more limited in range 
than jet transports, and thus they are not able to seek out areas where icing conditions 
may be appropriate for testing unless such areas are near to their base. When 
conditions are not suitable, many man-hours can be wasted at great expense to the 
helicopter manufacturer. With these problems in mind, other routes have been taken 


to aid in finding a solution to helicopter and light aircraft icing. 
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1.3 Experimental icing investigations. 


1.3.1 Natural icing tests. 

Reports of natural helicopter icing tests are very rare. Where such tests have 
been carried out by helicopter manufacturers, the results have generally remained 
proprietary. Rosen & Potash (1981) describe one of the earliest experiments — that 
of placing a Sikorsky R-4 helicopter at the summit of Mt Washington, New Hampshire 
in 1945. The results from these tests proved inconclusive because of a lack of ap- 
propriate conditions. 

Stallapbrass (1958a) detailed the results of a Sikorsky S-55 helicopter flight in a 
natural supercooled fog. This experiment was terminated when, after 40 minutes of 
flight, the increase of engine power required for hover was very slow. Although the 
LWC and MMD of the fog were not measured, they were estimated to be in the 


region which Werner (1975) would define as "Trace’”. 


1.3.2 Testing in an artificial indoor environment. 

Two laboratory facilities have been constructed for the investigation of icing on 
rotating helicopter rotor blades. One (described by Stallabrass, 1957) was built to test 
the effectiveness of de-icing via electro-thermal pads mounted on the leading edge 
of a shortened whirling rotor placed in a coldroom. The other, designed to test 
full-scale helicopters with the blades in motion, but with the helicopter remaining on 
the ground, was built within a refrigerated hangar at Eglin Air Force Base, Florida 
(Rosen & Potash, 1981). This icing spray rig was installed over the helicopter. “The 
testing was limited [during the 1949 - 1952 period] to a temperature range of 23°F 
to 28°F and was conducted with excessive LWC because of spray rig limitations’ 
(Rosen & Potash, 1981). 

In addition to these facilities, Ackley et a/. (1979) built a small whirling cylinder 
device in order to study the thickness and nature of the resulting accretions when the 
device was operated in a supercooled cloud formed in a cold room. The results were 


compared with theoretical calculations to be described below. 
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1.3.3 Icing on airfoils in wind tunnels. 

Among the earliest controlled experimental simulations of the icing process 
were those carried out in the NACA Lewis icing tunnel! by Gelder et a/. (1956). They 
tested the Joukowski 0015 and various NACA 6-series airfoils at angles of attack 
ranging from 0° to 12° with a dye tracer technique to find the local and total droplet 
impingement rates for a variety of droplet MMD's and airfoil chord lengths. They 
found the experimental impingement results to be within +10% of the average of the 
results calculated from theoretical trajectories. Other tests were carried out (see for 
example Gray, 1957) upon other airfoils to determine the shape and aerodynamic 
effects of ice accretion. 

More recently, icing simulations have been carried out upon a cylinder and a 
helicopter tail rotor section within the icing tunnel at the National Research Council of 
Canada Low Temperature Laboratories in Ottawa (Stallabrass & Lozowski, 1978). The 
cylinder was used to allow comparisons with a theoretical model (to be described 
below). Accretion on the airfoil was carried out at angles of attack between 0° and 
12° at various speeds and air temperatures. Several cases will be described in detail 
in Chapters 4 and 5. The airfoil accretions resembled those achieved in spray-rig 
experiments (described in the next section). A novelty of these experiments was the 
introduction of mixed cloud conditions (ice crystals and supercooled water droplets). 
The results indicated that such clouds posed less of an icing threat than those 
composed only of liquid water. 

The continuing need for a solution to light aircraft icing has led Bragg et a/. 
(1981) to test a Hicks modified NACA 64-215 airfoil in the NACA Lewis icing tunnel. 
The results have been compared to a theoretical model of airfoil icing that they have 
developed. 

All of these experimental investigations have revealed the strong dependence 
of the ice accretion upon the environmental conditions (LWC, air temperature, ambient 
pressure, droplet size spectrum) and also upon the flow conditions (air velocity, airfoil 


chord length, and angle of attack). 
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1.3.4 The NRC Spray Rig. 

Stallabrass (1957 and 1958b) has described the development of a spray rig by 
the National Research Council of Canada which is capable of providing an icing 
environment within which helicopters may simulate hovering conditions in a natural icing 
cloud. The rig produces a cloud of supercooled droplets with a MMD of about 30 
um. The maximum theoretical LWC is about 2 g m:?. The value of this device is 
evidenced by the extended period of use it has enjoyed. A number of trials of vari- 
ous helicopters have been performed: a Bell HTL-4 (Stallabrass, 1957); a Sikorsky 
S-55 (Stallabrass 1958a) and a Bell UH-1H (Cotton, 1976) to name a few. The 
purposes of the tests have ranged from gaining a fundamental understanding of the ice 
accretion process under realistic conditions, to checking out a de-icing system. One 
icing test simulation by Stallabrass (1958a) will be considered in more detail in Chapter 


5: 


1.3.5 The Helicopter Icing Spray System (HISS). 

The development of a spray system attached to a CH-47C helicopter has been 
summarized by Belte (1981). The present version of this system can produce a cloud 
of water droplets with a LWC between 0.25 and 1.0 g m°? and a MMD of about 25 to 
35 um. When a helicopter flies in the spray plume produced by the HISS at the ap- 
propriate air temperature, natural icing conditions may be simulated fairly well, although 
not all of the helicopter may be immersed in the plume at once. This allows testing of 
helicopters in forward flight, a feature unavailable in any other experimental simulation. 
Naturally the costs of this type of simulation are higher than for ground based 
simulators, although they are not as high as for natural icing testing because the icing 
clouds are produced artifically and only the appropriate temperatures need be ensured. 
Measurements of the droplet size spectrum produced by the HISS are shown in Fig. 4 
as a set of points. The drop size spectrum of a natural cloud in Minnesota is display— 
ed as a dashed line. For comparison, the Langmuir "D” distribution (Langmuir & 
Blodgett, 1946) used later in this dissertation is displayed as a solid line. This latter 


curve is calculated assuming a MMD of 20 um and aLWC of 1 g m*. 
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1.4 Theoretical calculations of droplet impingement and ice accretion. 

Calculations of the trajectories of water droplets in a flow about various airfoil 
shapes began in the 1940's, with the results from papers by Langmuir & Blodgett 
(1946), Guibert et a/. (1949), and Brun et a/. (1953) still widely used. These results 
were based upon the use of a differential analyzer, an analog device. A series of 
NACA Technical Notes followed outlining droplet impingement calculations for various 
airfoils under a variety of conditions. Some of these will be described in detail in 
Chapter 4. 

Werking in parallel were a number of investigators of the thermodynamics of 
the ice accretion process. Some papers were applied to the thermodynamics of the 
hail formation process (Ludlam, 1951 is one of the first of many in this field). Others 
were slanted more toward airfoil icing (Messinger, 1953). 

The problem of icing on stationary structures ( in its glaze, rime, and freezing 
rain forms) also began to receive attention (McKay & Thompson, 1969; Poots & 
Rodgers, 1976; List, 1977; Makkonen, 1981; and McComber & Touzot, 1981). These 
studies are important in airfoil icing as well because even though the icing conditions 
are somewhat different, many of the same techniques may be applied. 

Work on the microstructure of accreted ice and its density has been carried on 
by Macklin (1962), Macklin & Payne (1968), and Buser & Aufdermaur (1973). These 
papers are significant to the present study because they can be used to provide a 
formulation for the density of accreted ice. 

With the advent of large electronic computers, theoretical models of the ice 
accretion process have been given a big boost. The complex calculations of droplet 
trajectories and the subtleties of thermodynamic feedbacks may now begin to be 
investigated. Early endeavors in this field were those of Kloner (1970) and Werner 
(1973) at Lockheed California Company. Kloner developed a model of the ice 
accretion process on arbitrarily shaped airfoils where the accretion was treated as a 
steady-state process. Werner added to this model by incorporating a set of 
thermodynamic equations, and predicting the surface temperature of the deposit as 
well as the ice build-up rates and initial freezing rates on NACA airfoils suitable for 


helicopter main and tail rotors. His conclusion was that icing could pose at least as 
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great a problem for the tail rotor as for the main rotor of a helicopter. No 
comparisons between his model and experimental results are made however. 

| Cansdale & McNaughtan (1977) have developed a theoretical scheme to be used 
for the prediction of the surface temperature and rate of ice accretion of an airfoil in 
a mixed water droplet/ice crystal cloud. They propose to subdivide the airfoil surface 
into a number of sectors and calculate the thermodynamic equations in each sector. 
This will allow them to model runback of water which has accreted but not frozen due 
to the surface of the deposit not being below O°C. No results from this model have 
yet been published, although preliminary results are available (Cansdale, personal 
communication). 

Lozowski et a/. (1979) have developed the model proposed by Cansdale & 
McNaughtan for a non-rotating cylinder. Detailed calculations of the thermodynamics 
are made, and mixed icing conditions can be simulated. The model results are 
compared to experimental observations of icing upon a cylinder within the NRC icing 
tunnel. The agreement between model and experiment was good when the accretion 
was relatively dry, but it deteriorated when the conditions allowed significant runback. 

The limitation of time-independent growth assumed in the two previous models 
was relaxed somewhat by Ackley & Templeton (1979). While their model 
incorporated the effects of a liquid water cloud only, and did not treat the detailed 
thermodynamics of the ice accretion, the time dependence of a rime accretion was 
simulated by accreting a series of thin layers. The actual shape of each layer was not 
simulated, but rather it was assumed that the cross-section of the accretion always 
remained elliptical Their results were compared to the accretions observed on a 
whirling cylindrical bar (Ackley et a/., 1979). They attained reasonable agreement when 
rime icing was simulated. 

Simultaneously with, but independently of the development of the model 
described in this thesis, Bragg et a/. (1981) have developed a model to be used for 
the prediction of ice accretion shape and mass on arbitrarily shaped airfoils. They can 
simulate the time-dependence of the rime accretion process by discretizing the icing 
process into a set of layers, with the accretion process taking into account the change 


in shape of the airfoil profile as the accretion proceeds. Their preliminary 
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comparisons with other theoretical and experimental results show reasonable 
agreement in most cases regarding the accreted ice profile, as well as agreement 


regarding the degradation in airfoil performance caused by the ice accretion. 


1.5 Goals of the present study. 

In this introduction we have outlined the continuing icing problems experienced 
by light aircraft and helicopters. The escalating costs of aircraft development imply 
that a renewed and coordinated icing research effort must be carried out (Beheim, 
1978a). The Icing Research and Facilities Committee of NASA has recommended 
(Beheim, 1978b) that: 

"The large aircraft companies have already developed sophisticated means 
of [icing] analysis, but their availability is not widespread, particularly for the 
general aviation industry. In view of recent progress achieved in 
computational fluid mieennied even further improvements in analysis could 
be developed and the committee was enthusiastic that renewed efforts 
would have a good chance of success in providing more accurate 
predictive and design methods. Such an effort to improve existing 
methods and increase their availability was strongly endorsed.” 

This dissertation will describe the development of a numerical model which can 
predict the shape and mass of rime accretion on an arbitrarily shaped airfoil: The time 
dependence of the accretion process will be modelled by discretizing the accretion 
period, and allowing the ice to build up in a series of layers. The flowfield and 
droplet trajectories will be re-computed after each layer. The ice density will be 
specified according to the formula proposed by Macklin (1962). An attempt will be 
made to incorporate high accuracy in all calculations, and then to reduce the tolerances 
to determine if acceptable results can be achieved with a smaller computing effort 
The model predictions will be compared to other theoretical and experimental ice 
accretion results to verify the soundness and reliability of the model. Finally, 
recommendations will be proposed for the improvement of the model, and also for 
the improvement of intercomparisons between the model and experimental 


observations. 
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2. METHODOLOGY 


2.1 Introduction 

The goal of this dissertation has been defined in Chapter 1, that is to develop a 
numerical model capable of predicting the shape and extent of rime ice accretion on a 
two dimensional airfoil of arbitrary shape in a 2-D steady, incompressible, irrotational, 
inviscid flow containing an ensembie of supercooled cloud droplets. The techniques 
which have been employed to develop this program are described in this chapter. 

The modelling of the accretion process consists of three major steps, to be 
elaborated upon in the following three sections of this chapter. They are: 

1. determination of the flowfield about an arbitrarily shaped two dimensional airfoil; 

2. calculation of the trajectories of droplets embedded within the flow, and the rate 
at which they collide with the airfoil surface; and 

3. computation of the thickness of the resulting ice accretion, together with the 
shape of the new airfoil surface following accretion. 

Since we are dealing only with rime ice, no attempt is made to work out the 

thermodynamic processes which occur at the airfoil surface. This must be left for a 

subsequent study. 

Before the flowfield may be calculated about an airfoil, the shape of the airfoil 
must be given. In general, the profile will not be specified by a set of analytic func- 
tions, but rather by a set of discrete coordinate values. Thus the program has been 
written to interpolate a smooth airfoil surface between the data points. When analytic 
forms exist for certain airfoils, these equations are used to generate a set of data 
points, thereby maintaining a consistent approach. 

The “airfoil” shapes that may be accommodated include: 

i the cylinder, which is included because of its use in many aspects of icing 
research (see for example Langmuir & Blodgett, 1946, or Stallabrass & Lozowski, 
1978); 

2. the Joukowski airfoil, which was the basis for early analytic flowfield calculations 
around airfoils; 


3. NACA (US National Advisory Committee for Aeronautics) four and five digit 
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airfoils, the standard profiles for many helicopter rotor blades and general 
aviation airfoils; and 
4. any airfoil defined at a series of points along its periphery. 

Only the first two of these have analytic expressions available for the potential 
flowfield about them. In other cases, the flowfield is generated by the vorticity 
substitution method (Kennedy & Marsden, 1976). This method consists of solving for 
the vorticity density on a series of straight line segments approximating the airfoil 
surface, subject to the appropriate boundary conditions. The sum of the influence of 
the vorticity elements then yields the potential flowfield at any point outside the airfoil 
surface. 

Having calculated the shape of the airfoil and the flow about it, the next step is 
to find the trajectories of the droplets making up the cloud. The equations of motion 
of such droplets are presented in Section 2.3.2. Their right hand sides are made up 
of the following terms: the acceleration of gravity, the decelerative drag due to the 
relative motion between the air and the droplets, and the decelaration produced by the 
finite rate at which vorticity may be shed from the fluid near the droplet The most 
important factors affecting the trajectories are: the droplet inertia, which tends to 
make the droplet follow a straight line path; and the drag of the air, which tends to 
pull the droplet around the airfoil in much the same way as the air flows about the 
airfoil. Section 2.3.4 outlines the numerical algorithms which are used to integrate the 
differential equations of motion. The methods which have been used include the 
Runge Kutta 4th order, Runge—Kutta-Fehlberg 4th order and the 4th order Hamming 
Predictor—Corrector methods. 

With the means of calculating the trajectories and the shape of the airfoil 
surface known, we then proceed to calculate which droplets strike the airfoil surface, 
and at what location. The uppermost and lowermost trajectories of droplets which 
collide with the airfoil are known as the grazing trajectories for a given airflow and 
droplet size. They define the total mass of impinging droplets over a given time 
interval. Other trajectories within the envelope will allow us to determine the fraction 
of the freestream mass flux of droplets which will be deposited at any point on the 


airfoil surface (/.e. the collision efficiency). We may then calculate the thickness of 
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the ice layer which grows during a given accretion period. If there are several droplet 
size categories in the natural droplet size distribution, a combined or average collision 
efficiency may be used. The formulae for determining the accretion thickness take 
into account the curvature of the surface. All ice growth is assumed to take place 
normal to the underlying surface. If the droplets freeze rapidly as they impact, they 
tend to retain their shape, forming accretions of low density. Two formulations for 
the variation of the accretion density have been devised to calculate the accretion 
thickness. The positions of points defining a new airfoil surface may be computed 
based upon the accretion thickness at these points. The cross-sectional area of the 
accretion is determined and used to estimate the accuracy of the calculation of the 
new airfoil shape. A new set of vorticity elements may then be defined along the 
new airfoil surface. The stage is set for repeating this sequence of steps, thereby 
effecting the calculation of the time-dependent accretion on an airfoil. 

Details of the steps outlined above follow in the remainder of this chapter. 
The techniques and formulae to be described are implemented in the program RIME. 


A listing of this program is given in Appendix G. 


2.2 Airfoils and the airflow about them. 


2.2.1 The flow regime about a helicopter rotor blade. 

Lowry (1969) has described the airflow about a helicopter rotor blade as “an 
aerodynamic situation of exquisite intractability.". Particularly during forward flight, 
many complex aerodynamic interactions occur between the rotor blade and other 
structural components. The rotor itself experiences a rapidly varying angle of attack, 
air velocity, and yaw (Reichert & Wagner, 1973). Since the blade is flexible, these 
fluctuations induce aeroelastic effects which further complicate the flow. As the tip 
of the advancing blade approaches the critical Mach number, compression of the air 
significantly alters the flow field (Hammond & Pierce, 1973). In addition, the retreating 
blade may approach the stall condition, where the lift cannot be maintained because of 


separation of the boundary layer (Reichert & Wagner, 1973). 
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Reichert & Wagner recommend that a complete aerodynamic model of the flow 
about a helicopter rotor blade should incorporate the effects of the boundary layer 
(including reverse flow and separation) and compressibility. In addition, the 
unsteadiness and the three-dimensional nature of the flow should be accommodated. 
However, Maskew & Dvorak (1978) conclude that "a thorough and exact calculation of 
the development of boundary layer separation is properly the domain of the 
time-dependent solution to the Navier-Stokes equations. Unfortunately, the computer 
does not yet exist which is capable of handling such a problem, and even if one did, 
the cost in computing time would be astronomical.” Several approximations must thus 
be made to facilitate modelling of the airflow. These are: 

1. Ignore the existence of the boundary layer. Except during a leading-edge stall, 
the thickness of the boundary layer along the leading half of a rotor blade is very 
small as compared to the blade chord length (Maskew & Dvorak, 1978). With 
the exception of very small droplets, it may be expected that the boundary layer 
influence upon the trajectories of impinging droplets will be short lived and thus 
minimal. 

Zz. Avoid consideration of transonic flow regimes. Rotor blades may experience 
local transonic flow in two situations during forward flight The first involves 
low angles of attack and Mach numbers of about 0.85 on the advancing blade. 
The other, high angles of attack (over 15°) and Mach numbers of about 0.5 on 
the retreating blade (Wortmann, 1973). If we avoid these conditions by 
restricting ourselves to moderate angles of attack (a < 10°) on the inner 
half-span of the blade, then compressibility effects will be minimal (Maskew & 
Dvorak, 1978). In addition, Brun et a/. (1953) have determined that even at high 
subsonic local Mach numbers, the compressibility of the airflow has little effect 
upon most of the dropiet trajectories. This is because the greatest effect of 
compressibility occurs very near the airfoil. In this small region, only those 
droplets moving slowly (that is the smallest ones) would be affected by the 
change in flow due to air compression or expansion. Larger droplets would 
cross the region too quickly for. a significant change to occur in their 


trajectories. Brun et a/. have found that the effect of compressibility upon the 
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total collision efficiency of a cylinder is less than three percent for all the cases 
they examined. They also claim that an extension of these results to airfoils is 
straightforward because compressibility alters the flowfield in much the same 
way as that about a cylinder. Furthermore, within the region where 
compressibility significantly alters the airflow, the sub-region of greatest change 
in the flow has been found to be further back along the airfiow than the limits of 
impingement for all but the. largest droplets. 

3. Ignore three-dimensional and time dependent effects. Wortmann (1973) states 
that "the three-dimensionality and the unsteadiness of the flow over the blade 
airfoil are ... of secondary importance .... The flow on the blades is mostly 
two-dimensional.” 

With these restrictions and assumptions, we may treat helicopter rotor blade 
icing as a function of a steady incompressible, two-dimensional flow in a fluid without 
vorticity or viscosity. This allows us to consider potential flow fields about an airfoil, 


thereby keeping total modelling costs within reasonable limits. 


2.2.2 Specification of the airfoil shape. 

The first step in modelling icing is to specify the profile of a two-dimensional 
airfoil upon which we wish the accretion to occur. This will aid us in determining: 
1. the flowfield about the airfoil; 
2. the locations of droplet-airfoil collisions; and 
3. the direction and thickness of ice accretion. 
Only a few of the profiles may be defined analytically (the cylinder, the Joukowski 
airfoil, and some NACA airfoils are amongst this group). Others are specified at a 
limited set of points. Further, after the first layer of accretion, none of the resulting 
airfoils will have a shape easily defined analytically. For reasons of consistency, all 
airfoils are thus specified at a set of points, with the profile between such points 
being defined via cubic spline interpolation. 

For all airfoil shapes, the coordinate system has been non-dimensionalized by 
the inital (before icing) airfoil chord length, C. In this non-dimensional coordinate sys— 


tem, the nose is at (0,0) and the tail is at (1,0). Let @ be defined as the polar angle 
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measured from the negative x-axis. We will now define the profiles of a series of 


different airfoils. 


2.2.2.1 The cylinder. 


The cylinder has been included for validation purposes. Its upper and lower 


surfaces are defined by 


xy = Cr== cos 6) /2 (2.1) 


Eh eT (2.2) 


ies 70.25 - Cae 0.5)2 (2.3) 


and 
(2.4) 


where x and y are the non-dimensional (ND) coordinates of points on the airfoil 
surface. The subscripts U and L refer to the upper and lower surfaces respectively 


(COORDSI65,70)). 


2.2.2.2 The Joukowski airfoil. 

This airfoil possesses the very useful attributes of having a profile very similar 
to that of certain helicopter rotor blades, and at the same time an analytical solution 
for the potential flow around it. It too has been included for validation purposes, and 
may be defined in the following way (after Houghton & Brock, 1970), by the 
transformation of the appropriate circle. 

Let us start with a circle of radius a=b(1+e) shifted to the left of the origin by 


an amount be. Thus its coordinates are 


eee (hoe) GCOS 0. =. be (2.5) 
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y = b(1 +e) sine (2.6) 


Now if z and ¢t are complex numbers such that 


2 = x + fy (2.7) 
and 
a (2.8) 
then the Joukowski transformation is: 
c= z+ b*/z (2.9) 
or 
—E = x[1 + b2/(x2 + y2)] (2.10) 
and 
er eaey (il ee bay (xe Fey" ),] (2.111) 


The airfoil length in the transformed coordinate system is thus Ab(1+2e+e%)/(1+2e) 


which allows us to specify b to achieve an airfoil of unit length, viz: 
Be 05) OF 2e)/(1 + 2er 2) (2.12) 


For any value of & the thickness of the airfoil is 2n, and thus the ratio of the airfoil 


thickness H to the chord length C is: 


h = 2b(1 + e) sin e{1 - 1/[(1 + e)2 + e% + 2e(1 + e) cos 6]} (2.13) 


Since we wish h to have some predetermined maximum value ho. we need to solve 
(2.13) for the appropriate values of e and 96. Because this equation would be 
difficult to solve analytically, it is solved numerically. The program (COORDS[7 1, 103)) 
makes two initial approximations to e, finds the corresponding difference between h 
and ho. and uses the Secant algorithm (see for example Burden et a/., 1978) to 


converge to a sufficiently accurate value of e. Within each step of the Secant 
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algorithm, the program uses the Golden Section-search algorthm ZXGSN (IMSL, 1979) 
to find the value of @ in (2.13) which results in the maximum thickness for that value 


of e. 


The above transformation places the endpoints of the airfoil at 
epee 0.51 + 2e1* 2e7)/(1 + 2e + >) (2.14) 
and 


E = 0.5(1 + 2e)/(1 + 2e + e2) (2.15) 


for 6=0 and 6=n respectively. One final transformation, a leftward shift of the 


Origin, is made (COORDS/[109,119]) to give the airfoil coordinates: 


xy = & + 0.5(1 + 2e + 2e7)/(1 + 2e + e2) (2.16) 
7 ean 
Xp xy ( ) 
re barae 4 (2.18) 
and 
a aA 
Ye Vy (2.19) 


The procedure of this section results in a Joukowski airfoil whose coordinates are 
much more accurate than those obtained by the classical formulae (see for example, 


Houghton & Brock, 1970). 


2.2.2.3 NACA Four- and five-digit wing sections. 

During the first half of this century, the United States National Advisory 
Committee on Aeronautics (NACA) designed a large number of airfoils. Of these, the 
four and five digit series of airfoils are of particular significance for this study 
because they have frequently been employed in helicopter main and tail rotors, and 
also in general aviation aircraft wings. The two series may be designated as: 
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percentage of the chord; the second, oa: gives the abscissa of this ordinate (in 
tenths of the chord), and the last two digits, ho. specify the maximum airfoil 
thickness as a percentage of the chord length. 

2. NACA Fpte to ; where the design lift coefficient, in tenths, is three—halves the 
value of the first integer, Cos the second and third digits together, ce indicate 
twice the distance from the nose to the position of maximum camber in percent 
of the chord; and the last two digits, ho once again give the maximum airfoil 
thickness in percent of the chord. 

Abbott and von Doenhoff (1959) have summarized the data for these two 


series of airfoils. They give the thickness distributions for the four and five digit 


airfoil series as: 


er 0005 Bee 2960y ce 0.126 x 
(2.20) 
- 0.3516 x2 + 0.2843 x? - 0.1015 x‘) 


The expression in parentheses on the right hand side (RHS) of this equation has a value 
of 2.1x10-3 when x=1. Ideally this value should be exactly 0. Consequently, the 
amount 2.1x 10-3 is removed in a linearly increasing fashion from x=0.3 to x=1.0, so as 
to give a razor sharp trailing edge to the airfoil profile. This refinement to the stand- 
ard specification results in a more accurate flowfield generation by the method of 
Section 2.2.4. 

The ND y coordinates and the angle of the slope of the mean line for the four 


digit series are given by the formulae: 


Kor X<c y= c, (2c x - x*)/c* (2.2.1) 
=p a m p p 
y = tan 1 [2e (c, - x)/c5] (2.22) 
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fa a 2 aay a 2 (2.23) 
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y = tan [2c (c, Sox) /. r= oe (2.24) 


The mean line for the five digit family of airfoils is derived from the values of 
the two parameters Cy and co: These values, for several airfoils of interest, may 


be found in Table 1. The ND mean line ordinate and angle of slope from the x-axis 


are: 
Xs ve 2 22. 
for X<C_ ee cy [x 3c x + c* (3 c_)x1/6 (2.25) 
= vl uae: 3 = 
Y tan {e, [3x 6c x + c* (3 c_)1/6} (2.26) 
and 
= 3 & 
for x? va cp co (1 x) /6 (2.27) 
e = Fe 3 
y tan ‘[- c,c*/6] (2.28) 


Finally, the thickness distributions may be combined with the mean line 


(COORDSI[12,64]) to obtain the coordinates of the upper and lower surfaces: 
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2.2.2.4 Special airfoils. 

Recently, many modifications have been made to the standard sections 
described above. In order to permit the use of such airfoil sections, the program 
(MAINI43,70]) will accept user input in the form of x and y coordinate values which 
define points along the upper and lower surfaces. Control element endpoints (CEE's), 
which are discussed in Section 2.2.4, may also be specified in this manner. The pro- 


gram documentation gives further details (refer to Appendix G). 


2.2.3 Determining potential flow by analytical methods. 
For an incompressible fluid in two-dimensional (2-D) motion, the continuity 


equation is 
Oe SO 0 (2.33) 


where u. and ea are the components of the ND air velocity in the x and y 


directions respectively. We define the ND streamfunction » to be 
» = Vo i f (u_dy - v 40%) (2.34) 


where Ww 5 is a constant, and the line integral is taken along an arbitrary curve joining 


the reference point O to the point P with coordinates (x,y). After Batchelor (1970), 


we have 
ke (2.35) 
a ay 
and 
aro (2.36) 
3 ox 


The components of the air velocity are thus dependent upon the streamfunction at any 
point outside the airfoil. In order to evaluate equations (2.35) and (2.36), a finite 
difference scheme is employed, based upon the grid displayed in Fig 5. These two 


equations become: 


Oo eer rr (2.37) 
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and 
v ens (2.38) 


where r d is the ND droplet radius. 

There are two airfoils of interest in this study for which the streamfunction can 
be defined analytically: the cylinder, and the Joukowski airfoil. The cylinder is signifi- 
cant because it has been used in icing research as a stepping stone to more complex 
airfoil shapes. Papers exist which outline experimental and theoretical studies on 
cylinder icing with which we may make comparisons. Because the flow about a 
Joukowski airfoil may be determined analytically, this allows us to verify (using a 


realistic airfoil profile) the more general flowfield generating technique described in 


Section 2.2.4. 


2.2.3.1 The cylinder. 
The normalized or ND stream function, ¥, for a flow from left to right (with a 
unit ND velocity infinitely far from the cylinder) about a cylinder of unit diameter with 


center at (0.5,0.0) is (after Houghton & Brock, 1970): 


w = y{1l - 0.25/[(x - 0.5)% + y2]} (2.39) 


2.2.3.2 The Joukowski airfoil. 
Let us begin with the ND streamfunction for a cylinder centered at the origin in 
a flow from left to right with a unit ND velocity infinitely far from the cylinder 


(U_=1) . Thus (after Houghton & Brock, 1970): 


k 
p= yt dad - 2 (2.40) 
an(x!!? + y!!*) 
or in polar coordinates: 
k sin 6 


(2.41) 
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where ks is the source strength, a is the radius of the cylinder, and x'' and y'' are 
the x and y coordinates. If we rotate the reference frame through an angle of a, we 


obtain: 


Mex. COS 0 + y" Sinta (2.42) 


and 


Vy 'COS G. = & Sin a (2.43) 


The streamline #=0 intersects with the cylinder at two points. Thus this streamline 
must also define the surface of the cylinder (if there is to be no flow through the 


surface), and we have that 


UU 1g (2.44) 
a 06 

which implies that 
k = 2a (2.45) 
m 


Additionally, the ND streamfunction for a line vortex at the origin is 


pos k, /{2men[¥x'* + y'2/a]} (2.46) 


where 


kL = .- hra sina (2.47) 


In order to produce a negative (clockwise) circulation and thus positve lift for this 
airfoil with its nose at the left, we have introduced a negative sign in (2.47). Finally, 


shifting the cylinder by be to the left of the origin gives: 


re = x! a be (2.48) 


(2.49) 


and hence 
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- a*[y cos a - (x + be) sin a]/[(x + be)? + y@] 


+ 2a sina &n[v¥(x + be)? + y* /a] 


(2.50) 


This equation gives us the value of the ND streamfunction for a point in the z plane. 


Generally, we desire to know ¥ for an arbitrary point (€',n') in the c' plane, 


where 


—E = &' - 0.5(1 + 2e + 2e7)/(1 + 2e + e2) 


and 


Thus, we require the inverse Joukowski transformation. From (2.9) we have: 


z7-tz+b* = 0 


Finding the roots gives: 


z = O0.5[ctY¥(E2 - n2 - bb?) + 1 (2En)] 


If we set 
g' = £2 - n2 - 4b? 
he = Zen 
and 
jie Kira pi? 
then 


0.5[6 +v¥(j' + g9')/2 sgn &] 


x 
i} 


and 


(2.5 1) 


(252) 


(2.539) 


(2.54) 


(2790) 


(2.56) 


2:o7) 


(2.58) 
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y = 0.5[n + V¥(j' - g')/2 sgn n] (2.59) 


Equations (2.50), (2.51), (2.52), and (2.55) through (2.59) may thus be used to obtain the 


ND streamfunction for flow about a Joukowski airfoil (PUK[1,22)). 


2.2.4 Determining the potential flow for arbitrarily shaped airfoils. 

The two previous sections have described how an analytical flow may be de- 
termined about a cylinder or a Joukowski airfoil. For all other airfoils used in this 
study (including these first two, following a layer of accretion), the flow must be 
found by a more general method. 

Two classes of techniques exist for finding the potential flow about an 
arbitrarily shaped airfoil. The first involves the conformal transformation of a near 
circle to an airfoil, in a fashion similar to the one described in the previous section. 
Such transformations are iterated until the desired shape is achieved in the airfoil plane 
(see for example Theodorsen & Garrick, 1932). 

The second class of techniques involves the use of a distributed set of 
singularities. The most referenced paper in this field (Hess & Smith, 1967) used a set 
of sources and sinks along the airfoil surface to estimate the flowfield This basic 
method has been refined in a series of papers by various authors, leading to the 
method used in this study (Kennedy & Marsden, 1976). The primary difference be- 
tween this method and most of the previous ones is that the boundary condition has 
been reformulated. It requires that the streamline which lies along the airfoil surface 
must pass through a point slightly aft of the trailing edge of the airfoil. Previous 
methods generally constrained the component of the velocity normal to the airfoil 
surface to be zero creating considerable computing difficulty in the region near the 
trailing edge where velocities are changing very rapidly with distance. Kennedy and 
Marsden claim that a program based upon their formulation will require less than one 
tenth the computing time required for a solution with similar accuracy using the Hess 
and Smith formulation. The Kennedy and Marsden method may be summarized as fol- 


lows: 
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A set of points (CEE’s) which lie on the airfoil surface are joined by straight 
line segments called control elements. Each element j has a constant vorticity density 
Yj; along it At its center is a control point Sits If we write an equation giving the 
total influence of the vorticity density for ail control elements j=1,...,n; j#i 


on the flow at control point C. , then the collection of such equations results in a 


system: 
n 
=P = i= 
vy) a Tj R. 132505240 (2.60) 
j=l 
where 
R = y, cosa - x Sina (2.6 1) 
= 4 pa) ana (seeutirs Dy e 
KF or Dean (nso) (So pentry) 
(2.62) 
i 2s, De 
+ 2s,.tan Oe Ee 1 
J eas (De fu 
tj 2) j 
ana Lsgidi «s 


, Or and D. are defined in Fig. 6. To close the system, we 
Ij 2j iieresy j 
add one more equation similar to (2.60) applied at a control point just aft of the 
airfoil’s trailing edge. This gives us n+1 equations involving the n unknown Yj and ¥. 
The program (POTI[1,68]) solves this system using the IMSL subroutine LEQT IF. 
Additional details may be found in Kennedy & Marsden (1976). 

After considerable testing, Kennedy and Marsden have found that at least 40 
control elements are required over an airfoil surface in order to obtain good 
agreement with those cases where the streamfunction may be derived analytically. 
They distribute the control element endpoints by using a set of 25 which are equally 


spaced about a circle in the airfoil plane. We instead space the oy equally about a 


Circle in the circle plane. Thus 


Ce Oe OG (2 ee ot (2.63) 


where A@ is a constant, or 
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sales (1 - cos 85) /2 (2.64) 


Equation (2.63) may be used in (2.1), or (2.5) and (2.6). Alternatively (2.64) may be 
substituted into (2.20) through (2.32). 

The present study is especially dependent upon the accurate modelling of the 
flow in the vicinity of the airfoil nose. As a result, two modifications have been made 
to the procedures just described for those cases where the airfoil surface is defined 
analytically. First, the number of CEE’s placed for 0<|6|<1/3 (0<|6|<1/2 for the 
cylinder) may be specified independently of the number for |@|>7/3 (|6 |>n/2 for 
the cylinder). Typically there will be an additional number of CEE’s in the forward 
section. Also, in order to more accurately define the airfoil surface, additional surface 
segment endpoints (SSE’s) may be placed between CEE’s over the forward portion of 
the airfoil). This increases the total number of spline segments (to be discussed in 
Section 2.4.1) defining the airfoil surface, and results in a more accurate determination 
of the point of collision between a droplet and the airfoil. The distribution of CEE’s 


and SSE's on a typical airfoil is displayed in Fig. 7. 


2.3 Calculating the droplet trajectories. 


2.3.1 Droplet-airfoil interaction. 

This study involves the capture of cloud droplets by an arbitrarily shaped airfoil. 
The ratio of characteristic linear dimensions is about 1:10% (O[10-%] for the droplets vs. 
O[10-!] for the airfoil). Also the liquid water content of typical clouds was stated in 
Chapter 1 to be of the order of 1 part in 10° by mass. It is assumed that these two 
factors combined remove the need for calculating the effect of the droplets upon the 
flowfield about the airfoil. This is in contrast to some previous work, such as that of 
Pitter & Pruppacher (1974) where cloud droplet - ice crystal interactions could only 
be modelled through the superpositioning of the flowfields about the droplets and 
crystals, because the linear dimensions were comparable. 

With this complication removed, determining the droplet trajectories is 


accomplished by integrating the differential equations describing their accelerations in 
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the undisturbed potential airflow about the airfoil. 

With the trajectories of the droplets known, we may determine which droplets 
actually strike the airfoil surface, and where. This in turn will permit the calculation of 
the rate of accretion as a function of position along the airfoil surface, leading to the 


development of the thickness of the accretion. 


2.3.2 The equations of motion. 

We begin by assuming that the relative velocity between the droplets and the 
airflow is sufficiently low that we need not concern ourselves with deformation of the 
droplets. According to Pruppacher and Klett (1978), this assumption is valid (at least 
for droplets in free-fall) when the droplet Reynolds number: 


Roope Eke “A: Fle Vly (2.65) 


is less then 260. _ in this equation, RY is the droplet radius, vi, and Vi are the 
velocity vectors of the droplet and airflow respectively, and v_ is the kinematic 
viscosity of the air. They state that circulations within the droplets do not have sig- 


nificant effect upon their drag. When Re,> 400, periodic vortex shedding may induce 


d 
oscillations in the droplets. These would affect the drag somewhat, however, it is 
clear in Appendix | that if such high Reynolds numbers are reached, it is only just prior 
to collision, and thus the time interval over which these secondary effects could 
influence the droplet motion is so small that they may be ignored. 

The complete vector equations describing the accelerated motion of water 


droplets (having a fixed mass) in dry air are (following Pearcey & Hill, 1956, and 


Landau & Lifshitz, 1959): 


(2.66) 
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and 
= V (2.67) 


where P, and p q are the density of air and water respectively, Cy is the droplet 
drag coefficient, G is the gravitational acceleration, and X F is the droplet position 
vector. 

Among the first to integrate (2.66) and (2.67) for the droplet trajectories were 
Langmuir & Blodgett (1946). They used a simplified version of (2.66) which may be 


written as: 


R li - @, Ma, - 9) (2.68) 


Using an empirical fit between C Re ,/24 and Re,, their formulation for the 


D d 


steady state drag term was: 


—— 24/Re , + M37 Re) ce? + 6.24 x 10 3 Ree (2.69) 


where the last two terms on the RHS of (2.69) account for the departure of the drag 
coefficient from the Stokes’ value as Re q increases. 

More recent experimental work has led Sartor and Abbott (1975) to formulate 
a new expression for C. which is claimed to be more accurate in the range 


D 
0.01sRe <5 , Namely: 


= (2.70) 
Cy 24/Re , 22 


Using dimensional analysis and boundary layer theory, Abraham (1970) has derived the 


following formulation: 


¢, = 0.2924(1 + 9.06/VRe ,)? (2:71) 


which is valid for Rea< 5000. The program allows any of the droplet drag coefficient 


formulations to be chosen provided that they are within their range of applicability. 
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2.3.3 Non-dimensionalizing the equations. 

For convenience in plotting the results, and for the sake of easy comparison 
between different test cases, the above equations have been put in a non-dimensional 
(ND) form. This form also allows us to condense a number of different combinations 
of conditions into a smaller number of non-dimensional cases. The normalizing pa- 
rameters are the airfoil chord length C, and the freestream velocity U-. A list of 
correspondence between the standard and ND form of various quantities is given in 
Table 2. Since mass does not appear explicitly in these equations, a normalizing pa- 
rameter was not chosen for this property. 


The ND vectorial equation is thus: 


dv 2X0. pe) fe pe i ts 
ee d g Vib Wethivy Taxa) 
dt Ce es: : ‘ 
d a 
(2.72) 
d 

SCRE re heidi te 

vi - 7 

(20, + o,)ry t 4B 


Bars over g, v qd’ and vo indicate a vector quantity. The first term on the RHS 
combines the buoyancy of the droplet in air and the gravitational acceleration. The 
second terrn is the steady viscous drag, and the third (referred to as the history term) 
is related to the finite rate of vorticity diffusion from the surface of the droplet in 
accelerated motion. The equation implicitly incorporates the droplet induced mass 
resulting from the momentum it imparts to the air as it accelerates. 

Pearcey & Hill (1956) describe the basis for their inclusion of the third term on 
the RHS of (2.72). "A further effect occurs owing to the finite rate at which vorticity 
diffuses from the surface of the body. The distribution of vorticity throughout the 
medium depends upon the past velocity of the body and thus upon its history. The 


actual drag experienced at any particular time is more affected by the recent past 


history than by the distant past.” 
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2.3.4 Integrating the equation with a steady drag. 


2.3.4.1 The form of the equations. 


The x component of (2.72) is of the form: 
ug - - t = 
Roeeeemo ty. xt + ff, [t,75x(r) Ide (2.73) 
Oo 


which is a second order Volterra integro-differential equation of the second kind. 
Finding suitable numerical methods for determining the solution of this type of equa- 
tion is a topic of current research in numerical analysis (Makroglou, 1977, or Baker 
et a/., 1979). These state-of-the-art methods, as well as earlier methods (Pouzet, 
1960) are very complex and difficult to implement. For this reason, we begin by 
adopting the approach of earlier investigators (Langmuir & Blodgett, 1946, and Sartor 
& Abbott, 1975); that is, to drop the history term as a first approximation. 

In order to justify this approximation, we have estimated the potential impor- 
tance of the history term in finding the correct solution to (2.72), by calculating an 


acceleration modulus as defined in Crowe et a/. (1963): 

dv d (s )2 

nee d (2.74) 
dt 


The terms in (2.74) are estimated from the solution of (2.72) without the history term. 


ae = ar 


According to Crowe et a/., when Ae AMOS <, the steady drag coefficients can no 
longer be used without appreciable error, and the history term should be included. 
With the history term removed, we are left with a system of four first order 


differential equations: 


dx, 


a =wet sitar yy uysy Jem, (2.75) 
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du 2(o.; > o.) 
ae d a : 
Feunate te ou eNayhabrat wea meqars stn 
Pq Pa 
30 C 
a pD|- _- r 
a eae (u, u,) (2.76) 


4 (26 4 is p,) rd 


with similar equations for y d and v, (ACCNI1,32)). 


d 
In general, the gravity term (the first term on the RHS of (2.76)) will be omitted 
in the results which follow because this term is much smaller than the other terms of 


this equation. 


2.3.4.2 The integration of ordinary differential equations. 

As summarized in Hamming (1973), there are three interrelated problems 
associated with the use of approximate numerical methods for finding the solution to 
an ordinary differential equation (ODE). They are: 

1. “Amplifications of roundoff errors due to certain combinations of coefficients in 
the finite difference formulae, 

2. "Truncation errors that arise from finite approximations for the derivatives, [and] 

3. "Propagation errors (instability) that arise from solutions of the approximate 
difference equations that do not correspond to solutions of the differential 
equations.” 

In actual fact, the AMDAHL 470 V/8 used in this study (and the IBM System 
370 upon which it is based) does not roundoff numbers to a specified number of 
hexadecimal digits, but rather truncates them. This tends to render less valuable the 
theories which have been developed for the propagation of round-off error because 
such theories are based upon a random process. This may be a good approximation 
for roundoff, but it is not for chopping, where the change is always in the same di- 
rection. Further, errors may increse linearly with the number of machine operations 
during chopping. This compares unfavorably with machines which roundoff, where 
errors generally increase as the square root of the number of operations. 
Consequently, in order to minimize the effects of roundoff or chopping, 
double-precision arithmetric has been used. This allows computations to proceed 
using fourteen hexadecimal or about 16.7 decimal digits, as opposed to 6 hexadecimal 


or 7.2 decimal digits for single-precision. In this way round-off errors are far less 
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likely to contaminate the "significant” part of the final answer. 

Truncation errors may be minimized by including as many terms as possible in 
the Taylor—-like expansions of the finite difference approximations to the derivatives. 
Naturally, a trade-off is involved as greater accuracy is achieved by formulae of 
greater complexity. Generally, these formulae require an increased number of func-— 
tions and derivative evaluations. It has been found (see for example Burden et a/., 
1978) that methods having truncation errors of order four to six effect the best 
compromise between computing cost, accuracy, and ease of implementation. 

In order to choose a numerical method to be used in solving a system of ODE's 
such as (2.75) and (2.76), we must test to see which of the available methods will be 


Stable for this particular system. For an ODE such as 
x an F(t) (2.77) 


instability may result if the problem is stiff. Wanner (1977) has defined stiffness as 
follows. "A differential equation problem is stiff, if some of the eigenvalues of 
9f/3x have large negative real parts and if, at the same time, the interval of interest 
in the solution is relatively large.” 

The components of the Jacobian J= df/3x are found by the straightforward, if 
somewhat tedious, differentiation of f3 through f.¢ in (2.75) and (2.76) by Xye Uy? 


Ya and v, respectively. All such derivatives have been evaluated analytically except 


d 
mais are evaluated numerically (by a 
du /dx, du /8Y 4, Ov 1x4 and av /3Y 4 ese y (by 
finite difference technique) using the grid shown in Fig. 5. The complex eigenvalues 
of the Jacobian are determined numerically using the IMSL subroutine EIGRF 


(STAB[1,46]). Further details will be found in Appendix A. 


2.3.4.3 Methods for stiff problems. 

In recent years considerable effort has been expended to develop programs 
designed specifically to handle arbitrarily stiff systems of ODE’s. One of the best 
known programs is that of Gear (1971), known as DIFSUB. More recently better 
performing algorithms have been proposed by Liniger (1976), Cash (1980), and others. 
Papers have been written (see for example Enright et a/., 1975; or Hull, 1980) which 


compare the performance of various algorithms. Up to the present time, however, all 
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programs designed to handle stiff systems have been substantially less efficient than 
those able to successfully integrate only mildly stiff or non-stiff systems. Thus in 
order to determine the degree of stiffness of the system (2.75) and (2.76), the 
relatively easy-to-implement Runge-Kutta algorithm was employed. This follows the 
advice of Shampine (1980). "It is obviously valuable to have programs for non-stiff 


problems which diagnose stiffness.” 


2.3.4.4 The Runge-Kutta fourth-order algorithm (RK4). 

This traditional method (for a description of the algorithm see, for example, 
Burden et a/. (1978), p. 244) is often used as a standard against which to compare 
other numerical techniques. It has a local truncation error of order four in the time 
step ([(At)*]), and requires four function evaluations per step. This compares 
favorably with the second-order Runge-Kutta technique, for example, which requires 
two evaluations per time step; but gives a greater truncation error for the same num- 
ber of function evaluations (Of (At/2)2]). 

lf we denote the eigenvalues of J by Avs» kel,... ,4, then Lambert (1980) 
shows that the RK4 method will be stable for weakly stiff equations provided that 


Re(AAt) >-2.78, where A= min(r,), k=1,... 54. 


2.3.4.5 The Hamming fourth-order predictor-corrector algorithm (PC4). 

While RK4 gives useful results, it has the disadvantage of requiring a relatively 
large number of function evaiuations per step. This is a problem in the present study 
because calculations of the air velocity tend to be the most expensive part of the 
integrating procedure. Thus minimizing the number of these calculations will result in 
greater efficiency. As a result, it was decided to evaluate a fourth-order 
predictor-corrector method designed by Hamming (1973) to have the greatest possi- 
ble stability for a predictor-corrector method while at the same time minimizing the 
truncation error for this order of difference method. While the stability criterion is 
more stringent than for RK4 (Re(AAt) > -1.4), the method gives an improvement in 
efficiency over RK4 of about 21%. This method is somewhat more difficult to 
implement, however, and it also requires an explicit starting method (such as RK4) for 


the first three time steps. 
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The method is described on page 407 of Hamming (1973). Since the predictor 
and corrector are modified so as to reduce the truncation error, the method is actually 


of greater accuracy than O[(At)']. 


2.3.4.6 The Runge-Kutta-Fehlberg fourth-order algorithm (RKF4). 

While the PC4 algorithm is very efficient for mildly stiff systems with a given 
(and constant) step size At, the method is difficult to adapt to a frequently changing 
step size. Such a variable step size might be dictated by the requirements of stability, 
or in the interests of maintaining a constant local truncation error. The PC4 algorithm 
depends upon data from several time steps back, and thus the time step may be most 
easily changed by halving or doubling. Since each change requires a certain amount of 
overhead, to maintain efficiency, changes should not be made frequently. 

Fehiberg (1969) described a modification to the RK4 algorithm which allows an 
estimation of the local truncation error. This is accomplished by integrating the sys- 
tem of equations by both fourth- and fifth-order Runge-Kutta formulae, where the 
coefficients have been chosen to minimize the total number of function evaluations 
required. The local truncation error at each time step is then estimated via the 
difference between the answers provided by the fourth- and fifth-order formulae. If 
this error is less than a predefined tolerance, the integration of the ODE proceeds 
using a new time step. If not, the process is repeated using a smaller time step. In 
either case, the step size is adjusted so that the anticipated trucation error will be 
some specified fraction of the tolerance. Details of the RKF4 algorithm will be found 
in Appendix B. 

The stability considerations for the routine RKF4 are identical to those given in 


Section 2.3.4.4 for RK4. 


2.3.4.7 Estimating the global truncation error. 

The program RKF4 described above estimates the local truncation error and 
adjusts the time step to maintain this estimate below a certain tolerance. It does not, 
however, provide an estimate of the global error in the solution of the problem. This 


latter quantity would be useful in assessing the confidence to place in the final answer. 


amoeetd at aang 1,581) orirnengh 40 TOS eect qe cedonwe.8 Gorn 
yileutae <i Goritenn ect ccTis NOI amy Gobet OF es 42 beieoh ew 3 
{ise = yore 
~, 
(Dal viitiironle eile Pear gisuavio S> atte 


che Vr ais atom AS) fea ia ywav 2 MHYrGs 2 Ee a! ot 


2 


a os 
7 


re aupay.< 2 eng fot Musi, a ewstiors an. .% ae gata @ be 

iiizes 9 e ernewo5e Ari <6 BeieiLe Hiv eQe Latta near ey S: ' 

ua aie , ‘ 21S CREAN tee Pele el RRO an toe 

al 

ae) wn SThres eon he RSS. hic a lenge: reek ahete: be 
is i — 37) 'ar I ae S63: 'e ath 2 Ko pele va eK 

ac0'" Sy) DOP Slugs aaa ane pie 

, ; Mee 7 lag ! > ee y' @ eT eee Coeht ae 
i dT aoe on naan gots ey 

7. chy. quel wee atte D)? Gey i wot wad ped ee 
ipaLAw's jOtsn i ao) BI pe ni ‘ar (Arore 909 0h a 

eB eS re : pat 67 | ike nt? APObRp TS a zh 


ie =" rit " mvt IY vhaviSre. er ree 


a) Yay" clidnae qth Baebes neeitetbe wy resid ea 


fave 3 ei. !: (“FTL HS TReIe t 22 By %\ opt $57) 

7 A 7 : 
BE = 1S Newsy Oe geiie: wee eT Ss Geteie e 
live foripitirse BSA sec ns Share “Activate? apts 


Agate nosteart 1 aig meer 
bes io; CnteiuN is wt 2d}anene 2voq8 S6d 390 2338 wees 
aia > 
ae) 2800 " sce nicy.crie7ten ser/oled, iieclahiate irs oe mt — 
1) i 2 5 ant te. wmf ett \ te& ipo =" "6 sre me 
ByTa Ghihon ) sieiger sarspiinas. rit, BA) aoe was 94 De a 


| r= _ —_ 
/ a4 pe 


35 


A common, and perhaps almost traditional method for estimating the global 
truncation error in a given ODE integration, involves recomputing the solution using a 
smaller error tolerance (for methods based upon local error control). Equivalently, a 
smaller step size may be employed (for methods with a constant step size). The 
answers are then compared. Shampine (1980) emphasizes that some programs, when 
used to solve certain problems, may provide the same final answer even while the 
tolerance is reduced by five orders of magnitude! This might lead the user to the 
conclusion that the answer is as accurate as is possible on the machine being used. In 
actual fact, it may be nothing of the kind. The problem is that the above "procedure 
depends on a monotone behavior of the error with respect to the input tolerance” 
(Shampine, 1980). Since the programs were not designed to ensure this, one must be 
wary of estimating the global errors in this way. 

Prothero (1980) has reviewed the state-of-the-art in algorithms designed for 
the efficient estimation of the solution of a system of ODE's and their associated 
global errors. He concludes that the best algorithm available is the one described by 
Shampine and Watts (1976), and implemented in their program GERK. A modified 
verson of this algorithm, as well as a similar one from the same paper, is implemented 
in the program. 

When the order and step extrapolation algorithms were applied to determine 
the global errors in sample problems provided by Shampine and Watts, our results 
were similar to theirs. However, when exactly the same subroutine was given the task 
of estimating global errors in the droplet position and velocity components, these ~ 
estimates consistently proved to be far smaller than the actual variations in these 
components when the local trucation error tolerance was changed. Thus, as the 
tolerance was tightened, the final droplet position and velocity at collision with the 
airfoil surface did not converge to an answer within the error range provided upon the 
answers using a less stringent tolerance. This leaves the value of these algorithms in 
doubt for this system of equations. Further work will be required to determine the 


Cause for this failure. 
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2.3.5 Integrating the complete trajectory equations. 

Throughout Section 2.3.4 we have concerned ourselves with the integration of 
the droplet equations of motion simplified by the use of a steady drag formulation. In 
this section we shall remove that restriction. 

Section 2.3.4.1 described the difficulties involved in the integration of Volterra 
integro—differential equations of the second kind. Norment (1980), and others, have 
found that the acceleration modulus defined in (2.74) did not exceed 1/100, and thus 
that the history term need not be incorporated in the droplet equations of motion. 
Joe (1975) and List (1977), on the other hand, found the history term to significantly 
affect the trajectories of droplets which had bounced off hailstones. In several cases 
spread over a wide range of conditions, we have found A. to exceed 1/100. Thus 
we decided to attempt to integrate the complete equations of motion (2.72). 


Appendix C describes the method which was used for this purpose. 


2.3.6 The initial conditions. 

Ideally the droplet trajectory integration should start infinitely far upstream 
from the airfoil, with the droplets having the same velocity as the air. For 
computational reasons, this is impractical. As a result, the program has been designed 
to allow a choice to be made as to how far upstream from the airfoil nose, xo, to 
Start the integration. The user may also choose the starting offset from the extended 
airfoil chord line, yo. These two parameters are illustrated in Fig. 8. 

At the starting point, the program (TRAJEC[142,177]) calculates an initial droplet 
velocity which varies from the air velocity in such a way that the droplet Reynolds 
number, Re. is equal to 1/1000. This is necessary to prevent the initial Reynolds 
number from taking on a value of zero, leading to an infinite drag coefficient via 
(2.69), (2.70), or (2.71). It is possible to reformulate (2.72) so as to prevent this 
situation from occurring, but Chapter 3 will show that the Reynolds number increases 
rapidly within several time steps in any case, and that as a result this is a reasonable 
approximation in the circumstances. Furthermore, Chapter 3 presents the results of 
trajectories which begin at various values of xo. It will be shown that integrations be- 


ginning at least five chord lengths ahead of the airfoil nose produce trajectories which 


ta Nonitass oO iit sovige Lo hermeeina Gish wor BBS — re 
nt oooligirrot ome vheelé ste seit. veo Sevitorp oovem % oo 

ootstides tart evornet Hate 
sit Ye sotmagim set AW eMeWA eartienltih ant fades 1 ER 
suet eusttto ane (ORE!) iio dinld enemies (Sth 70 etetkupe: tt 


ais bee OO). Seeace 10 66-08) pr Becliel ohana *ieoee 


neiten Ye anolitcoe telaode a0) a eteeetidont we fot Hates freee 
¥ - 
" pineAiifitie or ear ola ert. breed Qed, Wey emf. fe Vet; ta 
saeas isiewoe saneteiar ty beetvod eed-riariw catigote lp ese 


‘ 


aint oer boxe OF Beet pees Ave 2rinHenos te are onan 
(S78)! note ta. 2 uns stslamtes sr? tigen oF Pare oF 4 
arowue éWy “o! Gees 2aw orice are ae 


j auctioane: 

Seviequ Wt yishriin! MES Ghose oeiga .\loonen Iseqerny \uelt 4 

"= NE, 609 32 vice <@rge acl fawar \diagot het rove hori | 
Sa7gness Naga Fé! 20's) Sr Tives.s <r IRHGeh S eet -arnveser’ we 


ow OM, Bor lifiwa 4AY mov? Medttaoy tl? wots ab ese ed. ot eriorts # 


V4 


DeaNsixe Oi matt fastlo pitts ef) Sapo CFG Yor yaw yi 


1 oF) materiel BIE 2repee Eg ot 
EOS Any Ae SeTESleD NTT RET a ATT fhe oy; ort prea gaiineta ert 
sromyer ingerp a ar! Vaven EB Tus oH Yrnaciev we wit ‘reve Sorikv — 
asi ann SH) cievarsg at Vikeamoan 2f.ain? O0OT\t ot i.e a ; 


adul insiglias Save shin! ng ay aries! OSs iD ade & MS erie mer — 


eit ace O).25 wa Sy wntatin, ci “siete a et retains : ats) 
rears pete Zhienyer. arte te t warts Hie. § wiaad avd grrrwsne | mG wih 
. sbtetoene & a) ov? fee) s oe ad tes, atm Ve Of eqae enh levees th 
to thes wo 2fraeeig E we avert: A secbatinnianis ah wi 4 
~od an AeieIges fart! sevcels sey se 9@ seulev euniney back mga 


¥ 


rig we aangradien oaube “4 -SE0n tote “ 1°. 


ov 


are sufficiently accurate that other approximations would mask the increased accuracy 


achieved by starting further back. 


2.3.7 Integrating the equations just prior to collision. 

Up to this point, Section 2.3 has described the search for high-order, 
high-accuracy solutions to the system of ODE’s governing the droplet trajectories. 
This section will deal with the problems such methods encounter during the time step 
in which collision occurs between the droplets and the airfoils, and will describe the 
method used to circumvent the problem. 


Let us imagine that during the time interval (t the droplet has 


itis! 
collided with the airfoil surface. Reference to Fig. 5 will indicate the likelihood that at 


least one of the grid points 1 through 4 is then within the airfoil profile. The value of 
the streamfunction at this gridpoint will then be highly erroneous (since the 
streamfunction supplied by (2.39), (2.50), or (2.60) only applies outside the airfoil 
profile). This in turn will lead to an incorrect approximation for the air velocity at 


(x 49¥q) een and possibly also at any other time during this interval after collision 


has occured. Appendix D shows that all of the integrators discussed above (RK4, 
RKF4 and PC4) use the value of the air velocity at some point within the time interval 


gt ] to find the position of the droplet at te. . This leads us to question 


i? i+] 1 


, and even as to whether or not 


the droplet really shoud have impacted in this time interval. 


the accuracy of the droplet position (x 


The above dilemma is solved by using a different type of ODE integrator after 
the droplet has passed the abscissa of the airfoil nose. A first approximation to the 
droplet velocity and position is made via a third-order Hermite extrapolation. The 
details of this formula are given in Appendix D. If extrapolation predicts a position 
which the methods of Section 2.4 indicate is within the airfoil profile, then we must 
find the collision location. If it predicts that the droplet has crossed a view window 
boundary (used for plotting purposes), then the location of this occurrence is 
estimated by the same method. If neither of these events has occurred, then the step 
is re-integrated using one of the higher order techniques mentioned above. If the 


latter integration predicts a collision (in contradiction to the extrapolation), then the 
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contradiction is resolved by repeating the extrapolation using a time step one-half the 


size of the previous one (TRAJEC([253,266]) 


2.4 Accreting the ice. 

Sections 2.2 and 2.3 have described how the profile of the airfoil of interest is 
generated; how the airflow surrounding the airfoil is determined; and the means by 
which we may calculate the trajectory of a water droplet within this flowfield. This 
section shall discuss the techniques which are employed to determine the point of 
collision between a droplet and the airfoil surface; the method of choosing the starting 
points for the trajectories; and the resulting calculations of the rate of ice accretion 
and its ultimate thickness after a given period of accretion. We shall also describe the 
means by which a new airfoil shape is determined, and the process of repeating the 


above steps for subsequent ice layers. 


2.4.1 Specification of a continuous airfoil surface. 

With the position of the droplet known at some time t. , we need to know 
the distance between the droplet and the airfoil, that is, the closest approach. In 
order to accomplish this goal, the airfoil surface must first be defined in a continuous 
fashion. Section 2.2 dealt with the specification of the airfoil surface at a finite num— 
ber of points (SSE’s). An interpolation procedure is required to locate the airfoil 
surface between the specified points. The procedure chosen is the semi-clamped (or 
in case of the cylinder; clamped) cubic spline fitted independently to the upper and 
lower surfaces (front half surfaces for the cylinder). 

Inspection of Fig. 7 will reveal that the slope of the airfoil surface at the nose 
is infinite. Attempts to fit the surfaces by a free spline, or by clamping the left end 
of the spline to a large positive or negative slope (depending upon the surface being 
fitted) have led to a poor interpolation. As a result, the upper and lower surfaces are 
rotated by plus and minus 30° respectively before fitting (see Kennedy and Marsden, 
1976) (FITI6,15]). This allows the angle of the slope at the nose to be clamped (in the 
new coordinate system) to plus or minus 60° respectively. The right end of each 


spline is left "free” in all cases except the cylinder. Here a problem exists once either 
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surface is specified in the rotated coordinate system, because near the “tail” of the 
airfoil, the surface becomes double valued. The spline fitting routine employed will 
not interpolate in this situation. Since riming can occur only upon the front surface of 
the cylinder, and since the interpolated surface is only required where icing may occur, 
then the spline is fitted to only the front half of each cylinder surface, with the right 
end of the spline being clamped to a slope of /3 (in the rotated reference frame) 
for the upper and lower surfaces respectively (FIT [16,30]. 

The coefficients of the cubic polynomial interpolator between any two SSE's 
are determined via the IMSL (1979) subroutine ICSICU. With these coefficients known, 
the methods of Appendix E may be used to determine the distance 2% from the nose 
along the airfoil surface to the point (x,y). 

Since the interpolation is performed upon points in a rotated coordinate sys- 
tem, an iterative approach must be employed to find the ordinate value of the airfoil 
surface corresponding to a given abscissa. The details of this approach will be found 


in Appendix F. 


2.4.2 Finding the closest vertical approach between the droplet and the airfoil. 

If we are to determine whether or not a particular droplet is to contribute to 
the accretion on the airfoil, we must be able to detect if and when it collides with the 
airfoil surface. With the position of the droplet specified at t; + by the Hermite 
extrapolating technique of Section 2.3.7, we need to know the closest vertical 
approach between the droplet and airfoil surface at that time. The closest vertical 
approach is defined as the distance AD in Fig. 9. 

Collision cannot occur until the right edge of the droplet (x tr ysyd) is to 
the right of the airfoil nose (X59 ¥_q) - Therefore, let Yo and Ye, be the airfoil 


ordinates for the abscissae max( x4) and Xytry: The slope of the line joining 


xy? 
these points is: 


M 3 2 : 2 
pa a al Ona lel max (x, x4) J + eS veo) (2.78) 


L d d s1 


The coordinates along the droplet surface which are closest to the airfoil surface are 


thus: 


j 
i] 
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2a 2 
and 
Tey Soe colar ees eR (2.80) 


where the first sign in each equation applies on the upper surface of the airfoil. The 


closest vertical approach is thus 
"CAP Gy Ya (2.8 1) 


where y A is the airfoil surface ordinate at xo (WHAMO [49,59}). 


2.4.3 Determining the point of impact. 
Section 2.4.2 discussed the method of determining the closest vertical 
approach. When Yerap is positive (for the upper surface) at t. and negative (or 


zero) at t; a then we may conclude that a collision has occurred in the time interval 


1 


(t. rte] . The situation is illustrated in Fig. 10. The problem is to find the point 


k 4 : ; 
(x a) where Mcp mp | is less than a predetermined tolerance. With the values of 


YoLap known at two different values of x,, that is at time t; and at time ty 


d ib 
we may employ the Secant algorithm to iterate upon x q and YoLap to find 


(x,y ) . At each value of x, between (x4); and (x4) however, we must be 


d 
able to determine y re The method for doing this involves finding the appropriate root 


itl’ 


of the cubic Hermite extrapolating function which fits x d to t (WHAMO [1,46]). With 
this value of t, we may find the value of Yq from the Hermite cubic polynomial fitting 
vy to t. c 

The components of the velocity of the droplet at the moment of impact, u 
and Vv, are found in a similar fashion, that is through the Hermite cubic polynomials 
extrapolating u q and v * as functions of t The angle of the tangent to the 
trajectory at the instant of impact is given by: 


8 = wux/v* (2.82) 


The angle of the perpendicular to the airfoil surface from the tangent to the trajectory 
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{at impact) is: 
SS ed <a edaa « (2.83) 


where 5) the angle of the slope of the perpendicular to the surface, is determined 
by the methods of Section 2.4.7. By the definition of 9@ (see Fig. 10), we desire to 


have 
<a /2. 4.0% Ss 2 (2.84) 


The program ensures that when the calculation of (2.84) is made, the answer is 
translated into the appropriate quadrants so as to fall within this range (TRAJEC 


[375,386)). 


2.4.4 Finding the grazing trajectories. 

The methods of the previous section allow us to determine, at the moment of 
impact between a droplet and the airfoil, the droplet’s position, its velocity, and the 
angle from the normal to the airfoil surface at which it impacted. Inspection of Fig. 8 
reveals that there is only one trajectory on the upper (lower) surface where a* will 
be equal to 1/2 (-1/2). Any trajectories above (below) this one will not collide with 
the upper (lower) airfoil surface. These two trajectories (one on each surface) are the 
grazing trajectories. Their significance will be explained in Section 2.4.5, where the 
local and total collision efficiencies will be defined. For the present, it suffices to 
emphasize that these trajectories should be determined accurately. Since 2 changes 
rapidly for small changes in yo when yo is near its grazing value, determining the 
value of 2 at grazing, ae can be difficult. Langmuir & Blodgett (1946) were able to 
identify the grazing trajectories by calculating the paths of several droplets which 
impacted within the grazing trajectory envelope. They then employed a theorem (valid 
only for cylinders) which enabled an accurate estimate of the grazing trajectory 
Collision point. Bragg et a/. (1981) determined an interpolator ‘between the droplet 
impingement angle (the angle between the tangent to the trajectory and the tangent to 
the airfoil slope) and the starting ordinate yo for several trajectories within the 


envelope. Extrapolation of this function was then used to approximate the value of 
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yo and thus & at grazing (yo G and Re respectively). 
Because the rate of change of yo with 2 becomes very small as we 
approach the grazing trajectory, a small error in the estimate of YO. will result in a 


large error in the estimate of 2.. The method for finding the grazing trajectory 


G: 
outlined below allows us to approximate these values to within a specified tolerance, 
not by extrapolation, but rather by ensuring that the grazing trajectory does indeed fall 
within the tolerance we have set. 

The program may perform the task of locating the grazing trajectories most 
efficiently, if reasonable estimates exist from which to begin the iterative procedure 
described below. Thus, the user may select the manual trajectory mode, and when 
prompted, input the droplet size, the trajectory integrating tolerance e¢, and the 
droplet starting position (xo,yo) . When the resulting trajectory results in a ND val- 
ue of YCLAP of 0.01 or less, the appropriate value of yo may be entered into the 
input file, and the auto-trajectory mode selected. If the airflow or the airfoil is 
asymmetrical, then a grazing trajectory estimate will be required for the lower surface 
as well. In this case, a resulting vaiue of YoLAP which is greater than -0.01 is re- 
Quired. 

The technique which is employed to determine the grazing trajectories is similar 
for the upper and lower airfoil surfaces. Following the first trajectory, the starting 


ordinate for the second trajectory is given by 
Veh a ag 0.95 YCLAP (2.85) 


where the constant 0.95 has been determined by trial and error to lead to the best 
second estimate for yo, and i is a trajectory index. After two trajectories have been 
calculated, the third and subsequent trajectory starting ordinates may be determined by 
use of the modified Secant algorithm, viz: 


) (2.86) 
1 


os ed a KYcvap, 'Y; ; ¥5-1)/ Yerap. Cees 


where the constant k initially has the value 0.85. The Secant method is repeated until 
One of three cases arises. 


1. The sum of two successive values of YoLAP is less than 0.00002. The 
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constant k is replaced by 
Ko = kt 0.1 (2.87) 


and the Secant algorithm is continued. 

Bie CLAP. “CLAP & 

In this case, (2.85) is used to find the next value of yo. 

3. A collision occurs. A test is carried out to determine if Yeap. .< 125 x21002: 
If so, then the last trajectory is deemed to be the grazing one. If not, then we 
check to see if 1/2 - le” | <«, where initially « has the value 0.2° If this 
relation is true, then it indicates the grazing trajectory. If not, the next trajectory 
starting ordinate is chosen to be midway between the two previous values. Also 
the constant k is replaced by k-0.05, and « is replaced by « +0.1° If this 
next trajectory hits the airfoil, the process is repeated. If it misses, then the 
Secant aigorithm is recalled to find the next value of yo. 

The above procedure is continued until a grazing trajectory is found for the 
upper surface. If necessary, the process is repeated for the lower surface. The 
advantage of this rather complex procedure is the knowledge that when the criteria 
are finally met, the true grazing trajectory must lie between the last trajectory to miss 
and the last trajectory to hit the airfoil. This provides an estimate of the error of 


yo, . These procedures may be found in the subroutine TRAJEC[483,513]. 


G 


2.4.5 Determining the collision efficiency. 


2.4.5.1 Definitions of 8 and ET. 
Following Langmuir and Blodgett (1946), we define the local collision efficiency, 


B , as: 


B = (dyo/d2) cos a (2.88) 


where yo is the y-coordinate of the trajectory starting point, and 2 is the distance 
along the airfoil surface from the nose to the point of collision. The factor cos a, 
which does not appear in Langmuir and Blodgett, is necessary here because the x and 


y axes are fixed with respect to the original airfoil chord line, rather than to the flow 
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at infinity. 

Physically, 8 may be interpreted as the ratio of the mass flux impacting with 
the airfoil surface, to the freestream mass flux. This concept is made clearer by ref- 
erence to Fig. 8. Following the central pair of trajectories in this figure, we see that 
the mass which flows through a plane perpendicular to the flow at infinity is deposited 
along the airfoil surface between %, and 2.. Because of the two-dimensional nature 


of the flow, the local collision efficiency is is simply 


lim Dees anos | 


cos (2.89) 
(yor = yo, 1270 (te v=04') ; 


In a similar fashion, we note that using the grazing trajectories yo and yor, » we 


GU 
may form a definition for the total collision efficiency: 


ET = (yo, - YOu) cos o/h. (2.90) 


In this equation, the subscripts GU and GL refer to the grazing trajectories on the 
upper and lower surfaces, respectively, and Dx is the ND maximum airfoil thickness. 


The two quantities 8 and Ef are related by: 
1 GU 
Ene = | Bdge (2.9 1) 


Physically, E may be interpreted as the ratio of the total mass flux impacting with 
the airfoil surface to the freestream mass flux passing through an “invisible plate” (that 
is, One that does not disturb the flow) of width ict From (2.91), we gain an 
appreciation of the need for determining the grazing trajectories accurately if we are 


to estimate the total mass of all the water droplets impacting with the airfoil surface. 


2.4.5.2 Locating additional trajectories within the grazing trajectory envelope. 

In order to calculate the thickness of the ice which accretes at any point on the 
airfoil surface, over a given time interval, it is necessary to know the mass flux of 
droplets colliding with the surface at that point. This flux is the product of the 
freestream mass flux and the local collision efficiency, 8, at that point We see that 


a knowledge of 8 is required along the entire airfoil surface. 
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A large number of calculations is required to determine a single Heacies 
trajectory. In fact, such calculations contribute significantly to the overall cost of run- 
ning the program. To prevent an excessive number of trajectories from being re- 
quired, we must attempt to determine the 8 curve as accurately as possible using the 
smallest possible number of trajectories. This goal may be attained if we are able to 
meet three requirements: 

1. a means of locating trajectory starting points which will lead to an accurate 
interpolating function for the 8 curve. 

2. a way of deciding when to stop adding more trajectories; that is, when the 8 
curve is sufficiently accurate. 

3. a 8 curve interpolator which is smooth (that is, continuously differentiable), but 
not overly smoothed (to the point of masking relevant information). 

It was discovered that requirements 1 and 3 are generally in conflict with one 
another. Thus, separate techniques have been developed to meet each of them. This 
section describes the methods used to satisfy requirements 1 and 2, while the next 
section will deal with 3. 

Let us begin with the two grazing trajectories which were determined by the 
methods of the previous section. If we add several other trajectories within the 
grazing trajectory envelope (the means of accomplishing this are discussed below), 
then we have a sequence of n_ data points (for n__ trajectories): 
(2, yo) i i= 1,...,n . We may interpolate upon this set of points to give us a 
yo vs. & curve. Then, if we find the slope of this curve, we obtain an estimate of 
the 8B vs. 2 curve. Since it is this latter curve in which we are most highly 
interested, we must choose the (%,yo) points which will result in the most accurate 
interpolation for the 8 curve. Examples of these two curves are shown in Figs. 11 
and 12. 

Investigations into the nature of a yo vs. % interpolator based upon cubic 
spline functions determined that the most stable curves resulted when the points 
(2,yo) were as evenly spaced as possible, confirming the advice of Spath (1974). 
However, since the shape of the curve is not known in advance, it is difficult to ac— 


complish this goal without wasting poorly placed trajectories. Furthermore, it was 
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discovered that if two adjacent points were too closely spaced as compared to the 
others, wild oscillations often resulted in the 8 curve. These problems were solved 
by employing a cubic Hermite interpolator HERMIT [1,8]. The resulting cubic 
polynomials are not coupled between adjacent intervals (as cubic splines are via their 
second derivatives), and thus changes to the interpolating polynomials in the intervals 
adjoining a new point in the set do not propagate through the curve as they do for 
cubic splines. However, in order to fit cubic Hermite polynomials, the values of 8 
must also be specified at the (%,yo) datapoints. In order to accomplish this goal, 
pairs of trajectories are calculated for each point on the yo vs. 2% curve (except at 
the ends, where we know that 8 must equal zero). These pairs of trajectories yield 
information which leads to mean values of yo, 2, and 8 at each point i, i=2,.. ., 
n-1, where there are n datapoints (2,yo,B) . Thus if + and - signs may be used to 


distinguish the upper and lower trajectory of each pair, then 


yous s= (yo, + yo. )/2 (2.92) 
+ - 
a. = (2, + 2.)/2 (2.93) 
and 
g. = (yo, : yo.) /(2, ee) (2.94) 


Using Hermite interpolators, we have more freedom in our choice of spacing between 
the points defining the curve. Thus we may choose to attempt to space the points 
equally on a normalized 8 vs. 2 curve, in order to maximize the accuracy of the 
resulting interpolator. The curve is normalized by the range in %, that is by 
a ie i i = 28 , where is the maxi- 
R hey dep and by twice the range in 8, thatis B, 28 BY 

mum value of 8 on the curve. This is necessary because the length of the curve, 
between any two points would otherwise be a function of the scaling factor between 
B and 2. Thus if the Hermite cubic polynomial interpolator between any two points 
Ww, ¥0,8) and (2,yo,8).., is 


5 +¢ 6° +c 
| 


3, 2, ie + yo, (2.95) 
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where 


Sl tea (2.96) 


then the normalized form of the equations is: 


= 3 D 
You bo iON + Sr + by iON + YOu: (2.97) 
where 
a 3 
2a Cy i &R/Bp (2.98) 
es 2 
a Co i *R/Bp (2.99) 
ie es itp’ BR (2.100) 
YO,; = yo,/8, (2.101) 
and 
aN = 5/2, (2.102) 


From (2.94) we may derive an expression for By. viz: 


Ce 


r BS ee 2b. un, Fee (2.103) 
| 


Shepile ols 2,1-N i323 


Armed with a means of interpolating the curves, we may return to our 
Objective of locating data points to yield an accurate 8 curve for the smallest 
numbers of data points. The method of Appendix E may be used to find the lengths 
of the cubic polynomial segments given by (2.103). Once the longest segment has 
been found, we will attempt to locate a new datapoint (2,8) midway between the 
two datapoints bounding the segment. This is accomplished by the Secant algorithm, 


which iterates upon Sy and L (the length along the curve from the point (2, B), to 


the point corresponding to 54) until L equals half the length of the curve segment 


With the value of 5, known, the corresponding value of yo can be found from 
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(2.102) and (2.95). We may then determine the starting positions for another pair of 
trajectories, again find the corresponding values of 2 and 8, and add one more point 
(2,yo,8) to be interpolated (CE[ 116, 186)). 

When the newly interpolated curve is compared with the previous version, 
point by point, at say 200 points between dey and 2 GL’ then the maximum 
difference in 8 between the two curves may be determined. The process of adding 
datapoints through the calculation of trajectory pairs may be continued until the change 
between successive interpolated curves falls below a predetermined tolerance. We 


may also insist that a minimum number of datapoints exist to be interpolated 


(CE[S9, 1 15)). 


2.4.5.3 Finding a smooth 8 v.s. 2% interpolator. 

The method of the previous section ensures that when a data point is added to 
the set of points to be interpolated, changes to the interpolated curve can only occur 
in the segments immediately adjoining the new point. Thus a point which is poorly 
placed because of insufficient accuracy in the trajectory calculations cannot influence 
the whole curve, causing wild fluctuations in the interpolator. Such fluctations act as a 
magnet for further datapoints since the lengths of curve segments which oscillate 
frequently will tend to be greater than curve lengths between other more accurate 
datapoints. A disadvantage of this method is that the second derivative of the yo vs. 
¢ interpolator (that is, the slope of the 8 curve) need not be continuous, and the 
interpolated curve may, in some instances, take on a segmented look. With the num- 
ber of datapoints to be interpolated fixed after completion of the procedure 
described in the last section, several alternatives are available to alleviate this problem. 

The first option is to interpolate the (2,yo) points by a cubic spline. This 
would result in a curve with a continuous second derivative, and thus would lead to a 
smooth 8 curve. However, the values of the datapoints would not be interpolated, 
and thus our goal of utilizing our available information most efficiently would not be 
attained. 

The second option is to interpolate the (2,8) points by a cubic spline. This 
will result in a smooth curve, but unfortunately the resulting curve may lack accuracy 


because, for example, the total collision efficiency would likely not equal the integral 
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under the 8 curve, as it should according to (2.91). 

The third option is to fit the (2,yo,8) points with a quintic spline (Spath, 
1974). This curve possesses all of the advantages of the first two options without 
their disadvantages. Further, the interpolator will utilize all the information in the data 
set For example, the area under the 8 curve between any two data points will be 
equal to the total collision efficiency within the trajectory envelope corresponding to 
this pair of datapoints. A requirement of this method is the specification of the slope 
of the 8 curve at the ends of the curve. This requirement has been met by assuming 
that these end slopes are related to the average slopes of the 8 curve in the two 


nearest intervals, viz: 


ya tet ae 0 - tan! 
a1 0.5 tan[2 tan (S; 5) tan (Sy 3)] (2.104) 
and 
eee Oe ol scan 
a 0.5 tan[2 tan ee tan tS ies (2.105) 
where 
Ree oot a a (2.106) 
and similarly for So 3: Siclenty and ae irk 


The program interpolates the dataset via the third option, that is the quintic 
Hermite spline. Then, it determines the difference between the interpolated 8 values 
of this curve and the cubic Hermite curve at 200 points along the curve's length. If 
the maximum difference is less than some predetermined tolerance, the quintic spline 
is adopted for further use. If the difference between the curves is too great, tam 
plies that oscillations exist in the quintic spline because of poorly placed datapoints. 
In this case, the Hermite cubic spline of the last section becomes the interpolated 


curve (CE[187,200)). 


APES OF Bribes ge ieors 1) ae 
mgG2) stvias ainiup a tlw: etnigg:, (eee, 4) art 1 ct ai nodge 
rortiw ansifao owt j2n%. eff to sageihpver arf ta Ap ceemsaoe's 
ce ort ni nowermetni ent) is ral ier jereiacriebal ert. erty 
oq. (ity a/lod aAtsh owt Ane naavied dP a en! tehre so Se. 
oozev co sdoisves Westen ‘Ber nevi (yoneiato mollis 


adee aif to notsstidecs act eleotrem sit to Creryeipe A 


a 
te 


gintttw2ed yd Ter need zac mens lupe sit. eves elo soe a lee 


‘ 
emt m evwo § sf to esQtle @pRievs Sey) of bétsie: ois seqaler 


m “ —« & oe + J = 
io fs J "51 ve 1 met nes .¢ peat 
(me ah ol 2). ged Sjaste debe & Ja 
7 : % | _. t hye : 
‘ 
le * - P\L.3, - Se) 2 — 
ut f $ $ ae 
| 
\ 


irri, han” bath tea 6 “'.§ 


AL srt gi tet jodas Oi ‘eri SIN "Senin pt 28 


eels’ 4 hetsloaietm grit remTed sac Cath if jecwernbsae A cet 


bil ST AA Sarsyelo), Deen etobbrG amae wate 234! w conmaa tity 1 
ee, 1 #887200) 2) sevice St neswteid Sonme}iib of? 1! say wearwh 167 
gittogazeb’ aceia yino0q |b souddad ‘Siiige Sitio alto Telne enek 
: ys | 


a 7 "7 
patel, jeter art semonet notoms iivertt Yn. sige ply ema 


— ) 
ee ae soos 


50 


2.4.5.4 The combined collision efficiency for droplet distribution. 

Chapter 1 described the types of droplet distributions which may be encoun- 
tered in an icing cloud. To this point, this section has dealt with methods of 
determining the collision efficiency of an airfoil for a monodisperse distribution of 
droplets. The challenge of extending this method to realistic droplet distributions 
remains. 

The simplest approximation to the natural droplet size distribution is to assume 
‘that all droplets have the mass median diameter Oe of the natural size spectrum. In 
this case, half of the liquid water content of the cloud will be composed of droplets 
with diameters less than bia and half above this size. 

Greater accuracy in determining the true airfoil collision efficiency when 
encountering a natural droplet distribution would be achieved by dividing the natural 
distribution into a set of categories, each catory being represented by droplets having 
the mass median diameter for that group. Fig. 13 shows the Langmuir "D" distribution, 
for example, divided into five categories, each representing 20% of the total liquid 
water content of the cloud. The associated representative droplet sizes are factors 
of 1.75, 1.27, 1.00, 0.77, and 0.50 times the mass median diameter of the entire dis— 
tribution, Lite The methods described earlier in this section may be employed to 
determine the collision efficiency of each category separately. Then, for any point on 
the airfoil surface, the collision efficiency for the natural distribution of droplets may 
be approximated by the sum of the collision efficiency values for the separate 
categories B 5 . each weighted by the fraction of the total liquid water content which 


that category contributes to the total We Thus we have: 


n 
B(2) = }) w.B,(2) for n< 5 (2.107) 

i=t 
Naturally, the total LWC in any approximate distribution must equal the total LWC of 
the distribution being modelled. The only disadvantage of this method is its cost The 
computing effort expended in running the entire program is approximately proportional 


to the number of categories chosen to model the natural droplet distribution. 
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A compromise between a single droplet size category, and a set of five 
categories (the maximum number permitted in the present program) is two categories. 
The results of such an experiment are described in Chapter 3, with a representative 
pair of collision efficiency curves displayed in Fig. 14. Inspection of this graph 
reveals the problem that exists in combining the two curves at the point where the 
inner curve (corresponding to the smaller droplets) falls to zero collision efficiency. 
The combined 8 curve typically has a kink in it at this grazing value of 2. In order 
to remove this kink, a variable length Boxcar filter (Jenkins and Watts, 1968) was ap- 
plied to each collision efficiency curve prior to the curves being combined 
(CE[346,382)]). A variable length filter was chosen because there is very little need to 
apply any smoothing near the peak of the 8 curve, but there exists a greater need 
near the ends of this curve. The method used in filtering may be described briefly as 
follows. 

Smoothing the 8 curve with a Boxcar filter of length F (2) simply consists 
of replacing the value of g(2) with the average value of 8 between 2-F (2)/2 


and & silo (2)/2, viz: 


2+F (2)/2 
B. (2) = a Bde (2.108) 
Ye MF (2)/2 
Vv 
or 
8. (2) = [yo(g + F(2)/2) - yo(2 - F (2) /2) I/F (2) (2.109) 


If 2-F (2)/2<2, or 2+F (2)/2>2%_, where 2, and 2 are the limiting values of & 
Vv 1 Vv n 1 n 

at the grazing trajectories, then we may replace the corresponding value of yo in 

(2.109) by either yo, or yo., as appropriate. The form of the variable length filter 


is: 


Fi(2) = F - 0.9 F(z - £,)/(2. - 2) for 2, skh, 
(2.110) 


O.1 F+O.9 F(R - 2,)/(2, - 2.) for 2 seek, 
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where - is the value of % corresponding to the peak of the 8 curve (that is at 
B, ), and F is the maximum length of the Boxcar filter. The user may indirectly con- 
trol the maximum length of the Boxcar filter by inputting the value of the ratio F/ he, 
which sets the maximum filter length for a given droplet size category as some 
fraction of the total length of accretion on the airfoil surface produced by droplets 
from that category. Further discussion on the effectiveness of this technique follows 


in Chapters 3, 4, and 5. 


2.4.6 Finding the accretion thickness. 

The previous sections of this chapter have outlined the methods used to pre- 
dict the mass flux of water droplets impinging upon any point of the airfoil surface. 
This section shall be concerned with determining the thickness of the accretion which 
results. 

Rime ice is formed when supercooled water droplets collide with a substrate 
under conditions in which the droplets freeze upon impact. The deposit temperature 
remains sufficiently below freezing so that no runback of liquid water occurs. The 
density of the deposit will depend upon the degree of deformation of the impacting 
droplets as they freeze, but by this definition, the density will be less than or equal to 
that of solid ice. 

On a microscopic scale (that is, the scale of the individual droplets), the rime 
structure is influenced by the stochastic nature of the impaction process. One 
realization of a numerical simulation of this process is displayed in Fig. 15 (after 
Lozowski, 1981). Droplets from a monodisperse size distribution enter from the left 
with their ordinate value selected from a uniform random distribution. They continue 
to the right, flowing with the uniform airflow (which is assumed to be unaffected by 
the accretion which may have already taken place). The droplets continue this motion 
until either they pass through the right edge of the figure, or until they impact with 
another droplet forming part of the accretion. When collision occurs, it is assumed 
that the droplets freeze instantly, retaining their original shape. Inspection of this fig 
ure reveals considerable variations in the accretion density, depending upon the loca- 


tion and size of the sampling area The existence of rime feathers (features 
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characterized by their long, slender appearance) is also predicted by this simulation. 
The angle of growth predicted by this model averages about 20°. 

On the macroscopic scale which is simulated in the present study, stochastic 
fluctuations in the rime density have not been modelled. Nor have we attempted to 
predict the formation of rime feathers. Both features are beyond the predictive 
Capability of the deterministic formulations employed herein. Instead, we have as- 
sumed either a constant rime ice density, or one which is dependent upon the droplet 
diameter, the impact velocity, and the deposit temperature. 

The mass of the accreted ice actually deposited upon the airfoil is the product 
of the collision efficiency and the coalescence efficiency. This latter term is simply 
the ratio of the mass of water droplets which stick to the airfoil, to the mass of 
water droplets impinging upon the airfoil We have assumed the coalescence 
efficiency to be unity in this study. Hallett (1980) cautions, however, that at aircraft 
speeds, some splashing of impacting water droplets may occur if the droplets are 
sufficiently large. He has determined that when the ratio of droplet kinetic energy to 
surface energy exceeds about 20, some loss of mass may occur. Until this ratio 
exceeds 200, however, the loss of mass will not be important. 

We assume all accretion to grow normal to the airfoil surface. Bragg et a/. 
(1981) have investigated the result of allowing the accretion to grow in the direction 
from which the droplets have arrived at their impact location. The shape of the 
accretion formed in this way can be substanially different from that presented in the 
following chapters, but Bragg et a/. were unable to conclude which formulation might 
better approximate experimental results. This remains a question for further 
investigation. 

In the limit where only a small number of droplets impinge onto the airfoil 
surface, forming a layer about one droplet diameter thick, the growth will be 
approximately normal to the original airfoil surface. Thus if the accretion process is 
treated as a time dependent process, with a layer being formed during each of several 
discrete accretion periods (rather than during one extended interval), then the 
assumption of normal growth may better approximate the natural accretion process. 


The program has been written to facilitate time dependent, multi-layer accretion. 
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Details of this formulation are presented in the remainder of this chapter. 


2.4.6.1 Accretion on a flat surface. 

The thickness Q of the accretion that would occur on a flat surface, oriented 
perpendicular to the airfoil which does not disturb the flow, is a function of the 
droplet mass flux through the plate, the period of the accretion T, , and the ice 


A 
density op Viz: 


= (2 lal 
Q U WT /0. ) 


where W is the cloud liquid water content, and U_ is the freestream air velocity. 
This may be non-dimensionalized via the chord length C to give a ND accretion param- 


eter: 
w = L/C (2512) 


With the mean collision efficiency B or Be known for a point on the airfoil surface, 
we can estimate the ND local accretion thickness, if the surface were locally flat, to 


be: 


(2..1:1:3) 


2.4.6.2 Accretion on a curved surface. 

If the airfoil surface is not locally flat, as is the case for most parts of the 
airfoils studied, then the thickness of the ice accretion calculated by (2.113) may be in 
error, especially if the surface has a small radius of curvature. To correct for the ef- 
fect of the surface curvature, a new approach is required. 

Fig. 16 shows a curved section of an airfoil surface having on it a layer of ice 
accretion of thickness m. If the representative radius of curvature of the original 
surface at point O at time ty is ry , and at ty, is ro. then the cross-sectional area 


of the accretion over the time interval [t,,t,] is: 
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(2.114) 


Mm + 0.5 Mm@/ry 


where M is the length along the surface at t, from points P to Q. Point O is 
located at SSE i, point P is midway between SSE’s i-1 and i, and point Q is midway 
between SEE’s i and i+1. The ND cross-sectional area on a locally flat surface of 


length M and thickness p (where p is given by (2.1 13)) is: 
co = pM (Zale) 


Combining (2.114) and (2.115), and solving for m gives: 


+ Vr? + 
ry arp for Gara O 
Sy ae eae for ree +0 


(2.116) 
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These formulae are implemented in subroutine ICING [190] and [234] 
The problem of determining a representative radius of curvature for the airfoil 
surface remains. The standard formula for the radius of curvature of a surface de- 


fined by: 


ee 5 
2 2 
eink) -ge [ ; (ax) orga u (2.118) 
5 x dx? 


Vin hme 62 +C oa + C 6 (2.119) 
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Sp Peete Xp (2.120) 


and the coordinates of SSE i are (x ). Combining (2.118) and the derivatives 


Ri? Ri 
of (2.119) yields the radius of curvature at SSE i: 


5 


(1 + Ce 4) 
ee 2m) 


yay 
lf an averaged value of the radius of curvature is required at SSE i, we may use the 
arithmetic average of the values at SSE’s i-1, i, and i+1. This averaged value has been 
found particularly useful in smoothing out small irregularities in the surface 
smoothness. Such irregularities, which might be caused by a lack of smoothness of 
the g curve for the previous accretion layer, can cause substantial fluctuations in the 
collision efficiency over relatively small surface distances. Such fluctuations lead to a 
rapid amplification of the original perturbation as the number of layers increases. For 
this reason the averaged radius of curvature is usually employed in the program (ICING 


[231] and [187}). 


2.4.6.3 Accommodating a variable ice density. 

The density of the rime accretion is influenced by stochastic fluctuations in the 
ice deposition, which can lead to rime feathers, for example. This cause for density 
variation will not be modelled. A second factor affecting the density is the degree of 
droplet deformation during the freezing period following the dropiet’s impact with the 
airfoil surface. This deformation is a function of the interval over which the freezing 


takes place, the droplet radius R,, the impact speed vy, the temperature of the 


qd’ 
accretion surface 0, the temperature of the droplets just prior to impact, and the 
rate at which the airfoil surface is being ventillated, among other factors. 

Once we know the density of the ice, we may calculate the thickness of the 


accretion m.,.., viz: 
VD 


hs (2.492) 
Mp m/o 


where @ is the ND ice density, that is the calculated density normalized by the density 


Of pure ice: p= 9 li7ekormes: 
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A series of experimental observations has led Macklin (1962) to derive an 
empirical formula for the accreted ice density when droplets of radius R q (in um) 
impact with a surface of temperature e (in degrees Celcius) at a speed of v" (in m 
s“) This equation may be normalized by the density of pure ice to give (ICING 


[170,176] and [219,224)): 
6 = 0.120(- RO dese (2523) 
where the following restrictions hold: 


SON ros (2.124) 


Oss: < R V*/0 | éedba29 (25725) 


Since (2.123) was empirically derived, the droplet radius actually refers to the mass 
median radius of the droplet distribution extant in the measuring wind tunnel. The 
impact speed similarly refers to the speed of the these same droplets. The program 
calculates droplet impact velocities for each of the droplet size categories which are 
used to mode! the Tatra droplet distribution. Thus, if we wish to apply (2.122) and 
(2.123) at some point on the airfoil surface, we must determine the impact velocities 
for each of the droplets which are able to impact at that point, and find a combined 
velocity which is determined in a fashion similar to that used to calculate the combined 


collision efficiency at that point, viz: 


: n(2) n(2) 
V*«(2) = a w. Ve (2) ) WwW. (2.126) 


In this equation, n(2) refers to the total number of the droplet size categories 
whose droplets impact at 2, and as before, the We refer to the fraction of the total 
liquid water content of the natural distribution contributed by droplets from the 
Category i. These calculations take place in subroutines ICING [92,94], ICING 
[150,152] and COLVEL [1,29]. 

Equation (2.123) requires a knowledge of 0., which has not been discussed 


Previously. Since the present version of the program does not solve the 
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thermodynamic aspects of the accretion problem, we must assume that the deposit 
temperature is the same as that of the airstream ©. , which is an input parameter. 

The variables ve ee and "id may be defined by either of two formulations 
when used in (2.123). The first is the total velocity of the impacting droplets. The 
second is the component of this velocity which is normal to the airfoil surface at the 
point of impact. In either case, the velocity is obtained by interpolating upon the 
datapoints (2 ,v*,8") with cubic splines. The datapoints are obtained from each 
pair of impacting trajectories calculated by the methods of section 2.3. The variable 
a | is the angle from the normal to the airfoil surface to the tangent to the droplet 


trajectory at impact (ICING [166,169] and [215,218)). 


2.4.7 The airfoil shape following a layer of accretion. 

Section 2.4.6 has allowed us to determine the thickness of the ice accretion 
layer that forms at any point on the airfoil surface during a given time interval. If we 
are to repeat the process, that is to accrete subsequent layers, we must know the 
shape of the airfoil following each accretion interval. 

The slope of the normal to the airfoil in the rotated reference frame at surface 


segment endpoint (SSE) i may be obtained from (2.119) as 


= SrA ae gae7 


The equation of the normal to the surface is thus: 
Rete se kX 1X, (2.128) 


However, we also know that the length of this line joining a SSE on the old surface to 


the corresponding SSE on the new surface must be m or MD: Thus: 


(x - x, )? + (y - ye =oama (2.129) 


Combining (2.128) and (2.129), and solving for x and y yields: 


S 2 
g (2.130) 
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and 
yay cut S. (x ~ x.) (2.131) 


The point (x,y) becomes a SSE on the new airfoil surface, following accretion, with 
respect to the old rotated reference frame (ICING [191,192] and [235,236)). 

Section 2.4.1 outlined the method used to interpolate cubic splines to the upper 
and lower airfoil surfaces. One requirement of the method was a set of rotated 
coordinates with origin at the airfoil nose. Since the position of the nose (which is 
defined as the point on the surface having the smallest abscissa value in the unrotated 
coordinate system) has likely changed following a layer of accretion, the first step is 
to locate its new position. Fig. 17 displays the two airfoil surfaces, at time te and at 
t +1 Also shown are rotated reference frames for the upper surface centered upon 
the new and old nose positions. Given an abscissa value for a point on the new airfoil 


surface in the old rotated frame, x, the subroutine NSURF calculates the abscissa of 


R 
this point in the old unrotated frame. This subroutine is employed in turn by the IMSL 
(1979) subroutine ZXGSN to find the new nose position through the use of the Golden 
section-search algorithm for locating the minimum value of a function in a given 
interval (ICING [253,280)). 

With the new nose position located, a new SSE is created at this point. All 
other SSE's on the new airfoil surface are then tagged as belonging to either the new 
upper or lower surface, depending upon their ordinate value as compared to that of 
the new nose. The old rotated coordinate system is then translated so that the new 
system has its origin co-located with the new nose position. With this accomplished, 


we are in a position to fit cubic splines on the new upper and lower surfaces, 


employing the new rotated coordinate systems (ICING [281,424)). 


2.4.8 The cross-sectional area of the accreted layer. 

A cross check upon the accurary of calculating the new airfoil shape is provi- 
ded by comparing the mass of the accretion layer calculated in two different ways. 
The first method involves finding the product of the cross-sectional area of the 


accretion, AL. and the ice density P:. In this 2-D problem, the spanwise length is 
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unity. The second way is to determine the product of: the accretion parameter 2; the 
ice density P:, the total collision efficiency E and the maximum airfoil thickness 
Ho: In order to make this comparison, we need to find the cross-sectional area of 
the accretion layer. 

The formula for the cubic spline interpolator of the airfoil surface in the 
rotated reference frame is given by (2.119). If we integrate this equation between 


SSE’s i and i+1 with respect to the distance variable 6. , we obtain the area under the 


R 
surface spline segment with respect to the rotated reference coordinates. This 
integral is: 
S, 
iG = J ypdd, 
(2.132) 
= a <3 2 a < 
Or25 CS ij 0.35 ea ru rips: sire Yaio: 
§. = - h ‘ th fficients of the 
where oF XR (141) Xp iv and ea throug oii are the coeffici 


Cubic polynomial spline segment between SSE's i and i+1. Maintaining our attention on 


the upper surface for the moment, we may then sum over all n, segments making up 


k 
the old surface to obtain the total area of this surface above the old rotated x-axis, 


Viz: 
Derae tha) ie. Ties (2.133) 


Repeating the process for the new airfoil (k+1) with respect to the new rotated 


coordinates (that is those centered on the new nose) gives 


I ee (2.134) 


Referring to Fig. 17, we see that the new nose position in the old rotated coordinate 


system is ( ) . Since the integrals I, and I,,, are with respect to 


*NR? NR 
different coordinate systems, we must make an adjustment to the difference between 


the integrals if we are to find the area between the two curves. This adjustment 
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involves the rectangle with area Ywr*tR’ where XrR is the abscissa of the airfoil tail 


in the old rotated system. It also involves the triangle with area 0.5 x whose 


NRYNR’ 
hypotenuse joins the two nose positions. Combining these adjustments with (2.133) 


and (2.134) gives us the cross-sectional area of the accretion on the upper surface: 


U k+1 k ~ *nr¥nr/2 + Yur“ TR (2.135) 


A similar expression may be derived for the area between the lower surfaces, Al 
and the two combined to give the total cross-sectional accretion area for the layer 


(FIT [33,66)): 


A. = Ay Zs AY (2.136) 


2.4.9 Placement of the control element endpoints on the new airfoil surface. 
Section 2.4.7 outlined the method used to locate the SSE’s on the k+1 airfoil 
surface, that is, after the accretion of layer k. If we are to solve for the airflow 
about the new airfoil shape (a step vital to the time-dependent modelling of the 
accretion process), the Kennedy & Marsden technique of section 2.2.4 requires that 
we locate a set of CEE’s on the new airfoil surface. We have several requirements to 

Satisfy in placing these CEE’s: 

1. We wish to retain the locations of the CEE’s on those parts of the airfoil surface 
where no change has occurred, that is, where there has been no accretion. 

2. A CEE shouid be located at the new airfoil nose position. 

3. If we are to maintain a reasonable cost in computing the droplet trajectories, the 
total number of CEE’s should not increase substantially as the number of accreted 
layers increases. 

4. The CEE’s on the newly accreted surface should be spaced apart in a fashion 
which is consistent with their spacing on the previous surface. 

5. If an area of strong surface curvature exists, CEE’s should be placed so that the 
straight-line elements joining them approximate the curved surface reasonably 


well. 
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Let us confine the remainder of this discussion to the upper surface - the 
procedures used for the lower surface are virtually identical. Our first step is to 
locate the CEE which lies immediately aft of the accretion region. Assume that the 
index of this CEE is j, and the index of the co-located SSE is i. This CEE and all 
those aft of it retain their previous positions (with appropriate changes for the 
translation of the rotated coordinate system). Let us define two ratios: that of CEE to 
SSE indices; and of lengths from the new and old nose positions along the new and 


old surfaces to CEE j; viz: 


Geta erie 1) 7 (i= 1) (ede?) 


SOM ee tie ka (2.138) 


We desire to ensure that the lengths on the new surface between CEE’s foward of 
CEE j remain approximately proportional to the corresponding lengths on the old 
surface. If the same number of CEE’s were desired on both surfaces, then the ratio 
of these corresponding length intervals would simply be Q,: But, the lengths between 
corresponding pairs of SSE's vary as the thickness of the accretion and the radius of 
Curvature vary over the accretion region. Thus, exact correspondence is generally 
unattainable. Further, we position CEE’s on the new surface only at positions where 
SSE's are located. Since there are 1/Q, surface segments for each control element 
in this region, adjustments are necessary to effect a compromise between the 
conflicting goals of proportional spacing, and co-locating the CEE’s with some SSE's. 
This is accomplished by ensuring that the distance between successive CEE's on the 


new surface divided by the corresponding distance on the old surface is: 


aa aaa kei 


i - 2.138 
acre eaecitn. 10,07) (1 50 5308) (2.139) 
J ea aes 


The parameter Qnm is chosen to be the maximum allowed increase in length between 
corresponding CEE’s on the two surfaces. It must be sufficiently small so that the 
spacing between CEE’s on the new surface is smaller near the nose (where typically 


the greatest curvatures occur) than farther back, along the non-accreted airfoil 
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surface. This method of locating CEE’s will tend to be most successful when the ratio 
2 


CEE. The last of our goals above is satisfied by checking the ratio of the lengths be- 


is small, implying a large number of SSE's to choose from when locating a new 


tween two CEE’s along the airfoil surface, to that along the straight line joining them. 
If this ratio exceeds 1.2, a new CEE is placed midway between the other two, given a 
sufficient number of SSE's in the region. These formulae are implemented in subrou- 


tine ICING [425,524]. 


2.5 Time-dependent accretion modelling. 

Section 2.2 has described the flow regime about a helicopter rotor blade and 
has detailed the methods used in generating the potential flowfield about an airfoil of 
arbitrary shape. It also has developed the techniques for defining the initial airfoil 
surface. Section 2.3 has outlined the calculation of the water droplet trajectories, 
which begin their paths several chord lengths ahead of the airfoil, moving in virtually 
the same fashion as the air surrounding them. Section 2.4 has described the means by 
which the impact locations of the droplets are found, the manner in which the collision 
efficiency is calculated, how the thickness of a layer of ice accretion is determined, 
and the method for finding the shape of the airfoil surface following this layer of 
accretion. 

lf the entire process is repeated, beginning this time with the new airfoil 
surface shape, then the revised flowfield will lead to a new collision efficiency 
curve(s), and a new distribution of ice for the following layer. Once the shape of the 
resulting airfoil surface has been found, the process may be repeated. 

This sequence of steps forms the basis for the time-dependent modelling of 


the ice accretion which can form on an airfoil. 
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3. CODE OPTIMIZATION 


3.1 Introduction 

In the course of writing a lengthy and complex program, a number of 
occasions arise where small adjustments must be made to standard algorithms. There 
are usually even more locations where tolerances must be set for program branch 
points, that is places where branches may be taken depending upon whether or not a 
variable exceeds a given tolerance. In addition to these, programs may provide the 
user with a set of input options. Appendix H outlines the adjustments, options and 
tolerances embodied in the program described in Chapter 2. This chapter details the 
sequence of trials that were used to estimate the optimum values of the various 


tolerances and options. 


3.2 Optimizing User options and input values. 

Appendix H describes the locations of adjustments and tolerances which are 
built into the program, and which should not require frequent user alteration. This 
section, on the other hand, will detail those options and adjustments which are re- 
quired as input to the program each time it is run. There are also a number of input 
values which define the conditions of each simulation. These will generally not be 
described here. A complete list and description of user inputs is given at the pbegin- 
ning of the program (see Appendix G). 

The discussion of this section will center around a sequence of trial simulations 
which were carried out to approximate optimal values for various options and 
tolerances, and also to test the sensitivity of the simulation results to changes in these 
values. The primary goal of this procedure was to increase the program's efficiency, 
that is to attain the smallest expenditure of computing effort for a given level of 


accuracy. 
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3.2.1 Control elements and velocity calculations. 

One of the first steps that the program takes (after finding the airfoil shape) is 
to calculate the air velocity at points outside the airfoil profile. The accuracy with 
which such values are calculated (when the Kennedy and Marsden technique is 
employed) is dependent upon the number and spacing of the control element endpoints 
used. The greater the number of endpoints, and the shorter the straight line segments 
joining them, the better these segments approximate the true airfoil shape, and thus 
give the correct vorticity density along the segments. On the other hand, we 
anticipate that the cost of computing droplet trajectories will depend greatly upon the 
number and distribution of endpoints. Thus they must be located with care. 

We shall begin by choosing an appropriate case for these optimization 
experiments. The program is more severely tested (particularly in determining the 
collision efficiency curve) when the angle of attack ALPHA is non-zero. Also, it is 
essential to choose an airfoil shape for which we know the solution for the velocity 
of the potential airflow at any point. This profile should also resemble a typical 
helicopter rotor blade cross-section so that the conclusions drawn from these tests 
will be applicable to the more general cases to be run later in subsequent chapters. 

The conditions chosen conform to those used in a paper with which 
comparisons will be made in the next chapter (Werner, 1973). The angle of attack is 
ALPHA = 4.6°: the airfoil is an uncambered Joukowski profile of length C=0.711 
meters, and thickness THICK=12.0%; the freestream airspeed is VINF= 128.6 m s7; the 
temperature of the freestream air is TINF=-20°C; and the freestream static pressure is 
PINF=101.3 kPa Finally, in order to request that velocities be calculated at specified 
input points, we have set VINQ=1. The results of several runs are displayed in Table 
oF 

The errors in the calculation of the velocity at all points upstream of one chord 
length ahead of the airfoil are less then one percent for all combinations of NEF and 
NEB tested. For each of the upper and lower airfoil surfaces, these two parameters 
are the number of CEE’s on the front third, and on the remainder of the airfoil surface 
respectively. Their method of placement was described in Section 2.24. Just ahead 


of the nose position, that is at (-0.01,0.001), the error in velocity shows an inverse 
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dependence upon NEF. This relation also holds true farther back near the lower airfoil 
surface (0.12533,-0.05328). On average, the results for the two points just above 
the upper surface ((0.005,0.015) and (0.01,0.0185)) display this result again, although 
the accuracy at any given point appears to be related to its position with respect to 
the nearest CEE’s. These results are to be expected — as the distance between CEE’s 
decreases, the elements better approximate the airfoil profile, and thus lead to a better 
estimate of the air velocity. 

Kennedy and Marsden (1976) recommend that a minimum of 41 CEE’'s be used 
to define the entire airfoil surface. The case just meeting this requirement (NEF=11, 
NEB=10) has a maximum error of less than 1.7% for all the points interrogated, and 
thus it was chosen as a suitable representative case for the experiments to follow in 


the next section. 


3.2.2 Control elements and trajectory calculations. 

The results of the previous section have provided some idea as to the number 
of CEE's required to model sufficiently accurately the potential airflow about an airfoil. 
But these runs are only the first step because we suspect that the accuracy of the 
accretion mass and shape is highly dependent upon the accuracy of the droplet 
trajectory calculations, and thus on the accuracy of the air and drop velocities at all 
points along the droplet path. To study the dependence of the droplet collision loca- 
tion upon the parameters NEF, NEB, and EPS (the truncation error tolerance), a series 
of experiements was conducted. The results are summarized in Table 4. 

Column 5 gives the local collision efficiency (defined in Chapter 2) for a 
particular pair of trajectories impacting slightly back of the nose on the upper airfoil 
surface. Column 7 displays the distance of impact of the upper droplet trajectory 
from the nose along the airfoil surface. Columns 6 and 8 show the errors in these 
values as Compared to the values for an analytical airflow. Column 9 compares the 
computing cost of calculating the pair of trajectories using the Kennedy and Marsden 
approach (rows 2 through 15) to the cost of the analytical approach (row 1). 

In the first few rows (1 through 7) EPS is constant, while the ratios of NEF to 


NEB increases. As NEF increases, the relative cost increases, as does (in general) the 
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accuracy of the simulations. An exception is row 5, where NEB=7. This implies that 
accuracy will be maintained provided that NEB 210. The cost also escalates as the 
sum NEF + NEB increases (see rows 6 and 7). Keeping NEF and NEB relatively con- 
stant for rows 8 through 15 allows us to vary EPS. One result is predictable: as EPS 
decreases, the relative cost increases. However, changes in the accuracy seem to be 
small and variable. The best overall compromise appears to be row 15, where the 
errors in 8B and in 2 are both relatively small. Further, this is one of the least 
expensive of the runs presented, and at the same time it has a relatively small 
truncation error tolerance EPS. Based upon these results, the values of EPS, NEF, 
NEB and NIF chosen for the simulations of the next section are those in row 15. 

An interesting sidelight may be provided by comparing the components of the 
costs associated with obtaining the results of this table. Using the case of row 15 as 
an example, the computing cost of loading the entire program and computing the con- 
trol element vorticity density by the method of section 2.2.4 is about 5i cents. The 
additional cost involved in the computation of two trajectories is $2.84 when the RKF4 
method (PC=2) and the full set of trajectory equations (EQN=2) are used. From this 
we can see that while the efficiency of the technique used in determining the vorticity 
density is high (as claimed by Kennedy and Marsden, 1976), the cost of computing air 
velocities at every time step (and sub-time-steps in the case of the RK4 and RKF4 
algorithms) can be very substantial. This knowledge emphasizes the need to calculate 
the collision efficiency curve as accurately as possible. In this connection, we will 
now investigate the relative costs of the RKF4 and PC4 algorithms. 

As was mentioned in Section 2.3, the Hamming PC4 method utilizes a minimal 
number of function evaluations (air velocity computations) per time step, but it is 
restricted to a constant time step. The algorithm RKF4 on the other hand uses more 
evaluations per step, but is is able to change the step size after each time step so as 
to maintain the largest time step consistent with the associated truncation error 
tolerance. For this comparison we have chosen the system of equations without the 
history term (EQN=1), because this term may interfere with the time-step selection 
method of RKF4 (described in Appendix B), and/or the error-mop-up process of PC4 


(Hamming, 1973). The results of the comparison are given in Table 5. The columns 
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have the same meaning as those in Table 4, except that column 1 now gives the type 
of ODE integrator used, and column 7 displays the ND step size in the step just prior 
to collision. 

The table shows that the relative cost between the RKF4 and analytical solutions 
is approximately the same as that for the full set of equations (shown in Table 4). We 
assume that a fair comparison between the RKF4 and PC4 methods is made when the 
step size of the smallest time-step for the RKF4 method is similar to the constant 
step size for PC4 method. This assures similar truncation errors for the two 
techniques in the region just prior to collision where the air velocity is changing most 
rapidly. The result of this assumption is a computing cost for the PC4 method which 
is 5.7 times that of the RKF4 method. Clearly, any method using constant time steps, 
no matter how efficiently, is not suitable for the solution of this system of equations. 

With the RKF4 algorthm having been singled out as the most appropriate of the 
ones attempted, and with suitable starting values of EPS, NEF, NEB and NIF having been 
determined, we shall now move to choose the most appropriate values of other con- 


stants and options. 


3.2.3 Program sensitivity testing for monodisperse droplet distributions. 

Let us retrict ourselves to results from modelling with a single droplet size. 
We must choose appropriate tolerances and options to obtain the collision efficiency 
curve (and thus the accretion shape and mass) which best approximate the true values 
for a given computing effort. The parameters’ we shall choose to vary are the 
method of finding the potential airflow (analytical (TYPE 0) vs. vorticity density 
(TYPE>0)); the number and location of CEE’s and SSE's (given by NEF, NEB and NIF); the 
system of equations used (EQN=2 for the full set; EQN=1 without the history term); 
the drag coefficient formulation (CDS=1 for the hybrid Stokes-Sartor and 
Abbott-Abraham method; CDS=2 for the Langmuir and Blodgett method); the truncation 
error tolerance (EPS); the maximum permissible change in the 8 curve after 
incorporating the last trajectory pair (CEDEL); and the trajectory starting point abscissa 


(XO). The results for a series of experimental runs where these parameters were 


varied are displayed in Table 6. In column 12 we have the total accretion area All 
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other columns have meanings similar to columns in Tables 4 and 5. 

We begin (in row 1) with an analytical run in which tolerances are set to the 
fine end of the range within which we wish to experiment. A plot of the flowfield 
about the Joukowski airfoil of this case is shown in Fig. 18. This figure also displays 
the trajectories used to calculate the collision efficiency curve of Fig. 19, and the ice 
accretion profile of Fig. 20. Changing the number of points specifying the airfoil 
surface, as in row 2, results in a small inaccuracy, and a small saving in expenditure. 
Changing the tolerance CEDEL (row 3) decreases the cost still further by requiring one 
fewer trajectory to be calculated. Since the grazing trajectories are unchanged, Ef 
remains constant, but the shape of the 8 curve changes somewhat. Changing the 
drag efficient formulation (row 4) increases the overall cost, and results in a significant 
change in E Returning CDS to its normal value and relaxing the truncation error 
tolerance (row 5) yields values for Bo: = and Ef almost identical to those in row 
1, but at half the cost. Removing the history term from the droplet trajectory equa- 
tions (row 6) effects a substantial improvement in relative cost (to 0.29), but incurs 
some errors in 8B), hae E and AL. A further change of XO (row 7) from —10 to 
-5 has little effect upon either the simulation accuracy, or the cost. Comparing rows 
8 to 5, we see that the decrease in XO from -10 to -5 more than compensates for 
the increased cost in altering CEDEL from 4.0 to 1.0, and with virtually no degradation 
of accuracy. If we relax the tolerance EPS once again, and begin the trajectories only 
2.5 chord-lengths ahead of the airfoil, the relative costs drop from 0.44 to 0.31. 

Let us now confine our attention to the subset of the runs with a relative cost 
of less than 0.50. Of these, the ones in rows 5, 8 and 9 are the most accurate. The 
least expensive one is that in row 9. Thus a suitable compromise with which to begin 
the simulations of the next section will be a run employing the values EQN=2; CDS=1; 


EPS=1x10-*, CEDEL= 1.0: and XO=—-5 or -2.5 for a droplet of diameter 20 um. 
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3.2.4 Program sensistivity testing with a variable number of droplet size 
categories. 

The results of the previous section were based upon simulations using a single 
droplet size. In actual fact, natural clouds have a distribution of droplet sizes within 
them. Let us assume that the Langmuir "D” distribution (see Fig. 9) fairly approximates 
a typical natural cloud droplet distribution. Then we may employ several droplet size 
Categories (up to five in the present version of the program) to approximate airfoil 
icing. Simulations using only one droplet size (for example, that of the mass median 
diameter for the entire distribution) are predicted to produce less accuracy. The re- 
sults for a series of such simulations are presented in Table 7. 

Column 1 of this table indicates the length of the Boxcar filter used in 
smoothing the 8 curve (C denotes a constant length filter; V a variable length one). 
This length is the fraction of the total length (in 2) of the g curve. Column 2 gives 
the number of droplet size categories. Columns 3 through 8 display, respectively, the 
mass median droplet diameter, the fraction of the total LWC in that particular size 
category, the truncation error tolerance, the maximum value of the 8 curve, the loca- 
tion of this maximum, and the total collision efficiency, for each of the categories. 
Columns 9 and IO display the mean values of B, and Re for the set of categories, 
or the corresponding values of the smoothed 8 curve, when filtering is applied. 
Column 11 gives the accretion cross-sectional area based on the mean and/or filtered 
8 curve, while column 12 displays the relative cost as compared to the most accurate 
multi-category simulation, that of Case 1. m 

From Table 7 we may make the following observations. Case 1 displays the 
most accurate and comprehensive simulation we have made for these conditions (the 
conditions used for these simulations are the same as those in Section 3.3.1). A plot 
of the 8 curves for this case is given in Fig. 21, with the mean curve (as defined in 
Section 2.4.5.4) superimposed as a heavy solid line without symbols. The other curves 
are nested, with the curve for the smallest droplets having the smallest peak value B.. 
We see that the all curves have peaks at approximately the same location. As the 
droplet size increases, the area under the 8 curve, corresponding to the total mass of 


ice accreted from that size category, increases as well. Further, the impingement 
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limits (that is the locations of the grazing trajectories) increase in distance from the 
nose as the droplet diameter increases. Case 2 is virtually identical, except that the 
values chosen for EPS correspond more closely to the optimum value suggested from 
Section 3.2.3. There is a small change in the height of the 8 curve peak, but the 
overall accuracy is nearly as high at 79% of the computing cost. From this point, we 
continue to relax tolerances by reducing the number of droplet size categories. In 
Case 3, there are three categories. The relative cost of this simulation is 0.53, and 
the accuracy of the simulation appears to be very good indeed. Cases 4, 5 and 6 
combine a two-category distribution with several different category weights (that is 
relative contributions to the total LWC) and representative droplet diameters. The 
trend in these simulations is toward greater accuracy (and only marginally increasing 
costs) as the weights approach an even split, that is 50% each. Cases 7 through 10 
illustrate the results of simulations using constant and variable length filters on the 8 
curves. The need for this smoothing is apparent if we examine Fig. 21 and compare 
the center 8 curve (with triangle symbols) to the heavy solid symbol-less mean curve 
8. The central curve corresponds to a simulation where the natural droplet distribu- 
tion is modelled by a monodisperse distribution with all droplets having the mass 
median diameter of the natural distribution. Such a simulation results in an 
Overestimate of the value of By (70.3% vs. 67.9%), and a substantial error in 
predicting the limits of the B curve (2 =-0.1368 vs. -0.2342 for the lower surface, 
and 2 =0.0196 vs. 0.0367 for the upper surface. Further, if we compare the 
accretion outlines for these two simulations (the solid curve in Fig. 22 corresponds to 
the B curve), we see that the more serious departure from the shape of the mean 
curve occurs on the upper surface. In that region the predicted airfoil shape follow- 
ing the accretion has a prominent cusp whereas the mean curve joins the original 
airfoil surface smoothly. Case 7 combines two equally weighted size categories using 
a constant length filter F=0.10. Case 8 uses a variable length filter. While the varia— 
ble length filter results in a slightly greater over-estimate of the cross-sectional 
accretion area, it improves considerably on the value of B, and &.. If we compare 
the 8 curves for Case 8 and Case 1 in detai! (shown as solid and dashed symbol-less 


curves in Fig. 23), we see that Case 8 provides a very good approximation indeed to 
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the composite 8 curve of the most accurate simulation, and at 37% of the cost of 
the high accuracy case. Cases 9 and 10 are similar to line 3 of Case 1, where the 
natural droplet distribution is modelled by a monodisperse distribution at the MIMD. 
However, Case 9 employs a constant length filter F=0.20, while Case 10 uses a varia— 
ble length filter of the same maximum length, to smooth the 8 curves. These 8 
curves are displayed in Figs. 24 and 25 respectively. The 8 curve of Fig. 24 poorly 
estimates the height and location of the natural curve’s peak — a situation similar to 
that of Case 7. The variable length filter applied in Fig. 25 improves the simulation 
considerably, however, with a smaller difference between the heavy solid and dashed 
B curves. The remarkable result is that the smoothed curve results in a good 
approximation to the 8 curve of Case 1 (dashed line), but at only 12% of the cost. 
Small adjustments in the manner in which the smoothing is applied might result in an 
even better fit. The corresponding accretion profiles are shown in Fig. 26. The cusp 
on the airfoil surface apparent just above the nose in Fig. 22 has been removed by 
applying the smoothing. Further, the lower accretion surfaces coincide more 
accurately as well in Fig. 26. The final two cases, numbers 11 and 12, represent the 
results of simulations made using the Kennedy & Marsden vorticity density method to 
compute the flowfield. We see that particularly when the finer tolerance of Case 12 
is employed, the accuracy of the simulation is comparable to that of Case 10. 
However, we also note that this pair of simulations confirms the results of our earlier 
experiments regarding the costs of this method compared with the analytical method. 


The vorticity density method costs almost 12 times as much for comparable accuracy. 


3.3 Conclusions on the choice of parameters for further simulations. 

Section 3.2 has dealt with a series of experiments to determine the best 
settings for the tolerances and options which the user must input to employ the pro- 
gram. Trials to determine the accuracy of the flowfield calculations by the vorticity 
density method, and the reliability of local collision efficiency calculations through 
droplet trajectory pair simulations, have led to a preliminary set of input parameters. 
These have been used to calculate the collision efficiency curve for an airfoil under 


conditions similar to those which have been measured during helicopter icing trials (see 
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Chapter 1). Such simulations, combined with others employing multi-droplet size 
categories have led to the following conclusion. Even simulations using only a 
monodisperse droplet size distribution can lead to an accretion profile very similar to a 
profile generated by the most natural simulation available within this program if the 8 
curve is smoothed with a suitable variable length filter. Without smoothing, the profile 
is Comparable only if two or more droplet size categories are used to model the 
natural droplet size distribution. Further comments on the desirability of smoothing 
the 8 curve will be made in Chapter 5. 

The parameters effecting the best compromise between computing cost and 
the accuracy of the accretion profile area and shape are: NEF=11, NEB=10, NIF=6, 
EQN=2, CDS=1, EPS approximately equal to 1x10-* depending upon the droplet size, 
CEDEL=1.0, XO=-5.0, and DDISTN=1 provided that FILTER # 0.0. 


if . | . a 

vo oi a is 
Scie tstacto-sium onivolyrig eet: fiw benidmes enoimiunia 
s Whe usin ergy opva pramdiemes” hoivento! ert ot ollie 
4 GO) whee vray Slitong noite pom te: oh eal rajs picinudi wets ene 2 
& ee + Merpoid awit Hrlby aiciliave noite aria eantun. tecen orth wd: 
aitove ert gations tudaghr ae etbral ately sielitue.e rtiwe 
ey ishom of bear 2 SehOges Se Tako tr story \e Owe "i wna 

Hoorn Yo diltisnash sal Ne eIyintS Yering ae edhe 


ae 


7 1 


~ | a 
: Oe 


x 


ie ia ‘A ets aid 
OPS aud GEUETIGS AseWwles ) SSHRgnaIeS ej " priests 
4 SEN | (=A ai! St cate boa, aan oii sa Te end war 
2q)2 Pigott -et noay of yan “Oe bee 2! (GA lesrhMOTae arate 


4 BTS Tar esnivo 1d  =ifTSisG-oee. £ 


L@ ay 


4. TESTING THE CODE FOR COLLISION EFFICIENCY ACCURACY 


4.1 Introduction 

The previous chapter has described the adjustment of user input options and 
tolerances so as to find a good compromise between computing cost and accuracy. 
In order to prepare for applications, we now require a more general verification of 
the program's accuracy. The predictive capability of the program encompasses both 
the collision efficiency, and the accretion profile’ Since these features have 
commonly been separated in past results, we shall first attempt to compare the 
program's predictions regarding the total collision efficiency, the limits of droplet 
impingement, the droplet velocity at impact, maximum local collision efficiency 8 oF 
and the overall shape of the 8 curve, with the predictions of other available papers. 
In the next chapter, these intercomparisons will be carried one step further, to overall 
accretion shape, accretion area, and indirectly, accretion density. 

Within this chapter, comparisons of results will be made first for cylinders, 
because they were the first substrates used in early studies of ice accretion. We will 
then progress through Joukowski airfoils, NACA four digit airfoils, and finally on to a 
more modern airfoil Most of the papers with which we may compare display 
theoretical results. One or two also outline experimental ones. 

In order to ensure repeatability of the results presented herein, all simulations in 
the remainder of the dissertation shall be identifed by a unique Case number, 
continuing on from those of Section 3.2.4, with a listing of the input options and pa- 
rameters for each case given in Appendix H. Additionally, for each case where an in- 
put parameter is changed so as to affect the conditions defining the simulation, up to 
four additional non-dimensional parameters will be given. These parameters are: 

1. The non-dimensional free-stream Reynolds number. This is the value that Re d 
would take on if the droplet were moving through the air with a relative velocity 


of UV. that is: 


> (4.1) 
Re, = 2R Ue ./4 


In this equation R, is the droplet radius, U. is the free stream velocity, pe. is 
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the air density, and y is the dynamic air viscosity. 
2. The NOD inertia parameter. This was first defined by Langmuir & Blodgett (1946) 
for a cylinder. The definition used herein is: 


20 .R2U 
Pee ed: dae (4.2) 


9uC 
It conforms to. current common practice, and differs from Langmuir and 
Blodgett's definition in that the characteristic length C now refers to the airfoil 
chord. Thus in the case of the cylinder, C is the diameter, whereas Langmuir and 
Blodgett used the radius. In (4.2) p d is the density of water. 
3. The ND impingement parameter. This was also first defined by Langmuir and 
Blodgett, and again differs from current use by the same convention regarding C. 
Our definition shail be: 
2 
18 piUc 


en eee (4.3) 
Pea 


We may note that the relation between Re,,, K and ¢ is: 
¢ = Re*/K | (4.4) 


4. The ND accretion parameter. This was defined in (2.111) and (2.112). 

Any two of the first three parameters are sufficient to uniquely define the conditions 
which should produce the same collision efficiency curve. The addition of the 
accretion parameter allows us to define the combination of conditions leading to the 


same accretion profile. 


4.2 The collision efficiency of a cylinder. 

Amongst the first to perform an in-depth analysis of the phenomenon of icing 
on cylinders were Langmuir & Blodgett (1946). Their calculations of supercooled 
water droplet trajectories were made on a differential analyzer. Following a relatively 
large number of such simulations, they prepared a series of tables and charts reducing 


the large numbers of cases through the use of the non-dimensional parameters Re, , 
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K and %. Their predictions included the total collision efficiency E the local 
collision efficiency at the stagnation line (of a cylinder) B, and the maximum angle of 
impingement, 6 ™ which corresponds to our grazing trajectory length 2 G: In some 
instances, they also predicted the components of the velocity at impact, ie and v 

Using the same techniques, Brun & Mergler (1953) repeated a number of 
experiments performed by Langmuir and Blodgett in the course of evaluating the 
multi-cylinder method for determining cloud properties, such as MIMD, LWC, and the 
shape of the droplet size distribution. Table 1 of their paper presents a comparison 
between their results and those of Langmuir and Blodgett. From this table we have 
chosen three sample pairs with which to make comparisons. The values in two of the 
three display substantial disagreement in the value of E The results of the third pair 
agree much more closely with each other. 

In the six cases presented in Table 8, the even numbered ones incorporate the 
history term in the droplet equations of motion. The odd numbered ones do not. An 


inspection of this table reveals some interesting results. In the first set, the total 
x 

, u 

ii G 

and v.. In both cases the equations of droplet motion exclude the history term. 


collision efficiency values of Cases B and 13 agree well, as do the values of 2 


There is less agreement with Case A. 

In the second set, the greatest agreement is reached between Cases A and 15. 
This time, our predictions vary considerably from those of Brun and Mergler. As 
would be expected, the differences between 13 and 14 are greater than those be- 
tween 15 and 16, because in the latter cases the trajectories are less curved, there is 
less acceleration, and thus the history term, which is a function of the strength of past 
accelerations, is smaller. The trajectories of Case I5 are shown in Fig. 27, with the 
corresponding 8 curve displayed in Fig. 28. 

In the third set, where the trajectories are once again more curved (see 
Fig. 29), the agreement seems to be best between Cases B and 17. Thus, in the three 
sets examined, the present results agree best with those of Brun and Mergler twice, 
and with Langmuir and Blodgett once. More important, our results compare very well 
with at least one case of each set. Further, although the formulation excluding the 


history term generally provides a better comparison, as would be expected since the 
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other papers did not include the history term in their calculations, the inclusion of the 
history term does not affect the values used for comparison by an amount much 
greater than the disagreement between the results of the previous papers. 

The study of rime ice formation on stationary objects, such as power lines, has 
led to the use of modern, sophisticated techniques to solve for the collision 
efficiency. McComber & Touzot (1981), for example, have employed a finite-element 
grid, with a restructuring of the droplet equations of motion using an Eulerian refer- 
ence frame, to solve for the velocity field of the droplets. This contrasts with the 
method of the present study, where we solve for the air velocity field first, and then 
calculate individual Lagrangian droplet trajectories. The droplet velocity field calculated 
for one size of droplet (usually a size for which K is small), then allows McComber and 
Touzot to iterate to the droplet velocity field for the next value of K and thus D qd 
The local collision efficiency is determined from the velocity field, and is integrated 
numerically to yield the total collision efficiency. 

The pressure and temperature values chosen for comparative simulations with 
McComber and Touzot were once again those used by Langmuir from experiments on 
Mt. Washington, New Hampshire. Table 9 details the results of series of simulations. 
As before, definitions of K and ¢ vary, and thus values using both defintions are 
given. 

For the cases shown in Table 9 (Cases 19 through 24), the trajectory equation 
of motion was varied, as was the drag coefficient formulation. The reason for doing 
this was to study the effect such changes produce in the parameters used for 
comparison. As before, the inclusion of the history term has the most significant ef— 
fect on the values of E! Le and By when the accelerations are strongest (ET 
smallest). This is seen by comparing Cases 19 and 21 with Cases 22 and 24. 
Similarly, when the drag coefficient formulation is changed (Cases 20 and 23), the 
greatest effect upon the results occurs when the accelerations are strongest. When 
the history term is excluded (which makes a fairer comparison with the methods of 
the other two papers) we see that our results most closely match those of Langmuir 
and Blodgett for both sets of Re,, and K parameters. Once again the differences in 


the predictions are small, leading to an increased confidence in the accuracy of our 
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results. The fact that McComber and Touzot's results deviate somewhat from the 
others suggests that the finite element grid which they employed may have been too 


coarse. 


4.3 The collision efficiency of a 36.5 percent thick Joukowski airfoil. 

Brun and Voyt (1957) studied the impingement of droplets upon a Joukowski 
airfoil in order to determine if such an airfoil (or set of airfoils) might be better suited 
for estimating the cloud LWC and MMD than the rotating cylinder method. Their 
method of solution for the droplet trajectories was the same as that used by Brun and 
Mergler (1953), that is the mechanical analog. We shall make comparisons with this 
paper because it allows us to take one step up the ladder of airfoil flowfield com- 
plexity. The analytical solution for the flowfield about this type of airfoil is known, 
just as it is for the cylinder, and thus it allows us to evaluate the ultimate effect of the 
accuracy with which we calculate the flowfield by the method of Kennedy and 
Marsden. Results for several simulations are found in Table 10. Comparisons of ES 
and 2 G show that Case 25 approximates the results of Brun and Voyt to within the 
1% error limit estimated by Brun and Voyt to be appropriate for their results. In this 
situation, inclusion of the history term has only a small effect upon ES and 8g. If we 
compare the 8 curves for Case 25 (trajectories displayed in Fig. 30) and Case D, we 
can see (Fig. 31) that the agreement is excellent except perhaps right at the airfoil 
nose, where a small discrepancy exists between the solid line (present results) and the 


dashed line (results of Brun and Voyt). 


4.4 The collision efficiency of uncambered four-digit NACA airfoils. 

As explained in Chapter 2, no analytical solution exists for the flowfield about 
four and five-digit NACA airfoils. Thus we have chosen to compare the results of 
the present model with those of Werner (1973) and Bragg et a/. (1981) to determine 
the program's accuracy in modelling these more-difficult-to—model airfoils. 

Werner (1973) has attacked the problem of determining the flowfield about an 


arbitrary shaped airfoil in essentially the same way as we have in the present paper. 
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He too uses a vorticity substitution technique for generating the flowfield at a distance 
from the airfoil. However, whereas we continue to use the flowfield provided by this 
method to calculate the droplet trajectories up to their point of airfoil collision, he 
uses another (unknown) technique near the airfoil surface, presumably because he feels 
his vorticity substitution method is not sufficiently accurate near the surface. We 
have shown that errors in the potential flow velocity quite near the airfoil surface 
remain small when the Kennedy and Marsden technique is used to generate the 
flowfield. Werner goes on to integrate the simplified system of equations describing 
the droplet’s acceleration, the system designated here by EQN=0. He carries the 
process one step further by also incorporating a limited set of thermodynamic 
processes, which he uses to predict the initial freezing rate based upon the initial 
collision efficiency. The results of a comparison between the two programs is given 
in Table 11. From this table we may note that the best agreement is between Cases E 
and 27, where the equations of droplet motion are most similar. There is a greater 
discrepancy in E. here than has been noted in earlier comparisons, although the val- 
ues of 8B 9 agree reasonably well. However, we see that there is a considerable 
discrepancy in the limits of impingement. To study this problem more closely, we may 
turn our attention to a comparison of the 8 curves for the two cases. Fig. 32 
displays the trajectories used in calculating our 8 curve, with the curve itself shown 
as a solid line in Fig 33. This latter figure also shows Werner's result as a dashed 
line. We see that even though the peaks of the curves are aligned, there appears to 
be a general shift of the Werner curve to the right. This could occur if the angle of 
attack were in error. It may also be due to Werner beginning his trajectory 
calculations insufficiently far upstream from the airfoil. 

Because of the rather large disagreement between these two curves, we 
decided to make a further comparison with Bragg et a/. (1981) using a similar airfoil, 
the NACA 0015. Bragg et a/. have written a program to accomplish many of the aims 
described in Chapter 1. They have employed a completely different approach toward 
the calculation of the airflow about arbitrarily shaped airfoils however. Whereas we 
employ a vorticity density technique to create the appropriate airflow subject to the 


boundary conditions of Kennedy and Marsden, the technique of Bragg et a/. is based 
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} upon the Theodorsen & Garrick (1932) method of conformal transformation. This 
involves the fitting of a series of conformally transformed circles to provide a 
composite airfoil shape that matches the desired shape sufficiently well. The matching 
of airfoil shapes is accomplished by Fourier components. These same components 
may then be used to find the composite flowfield which matches the composite airfoil 
profile. 

Two cases have been chosen for comparison. They are outlined in Table 12. 
The history term is excluded in order to make a fair comparison with the predictions 
of Bragg et a/. Further, the effects of this term have been determined in the 
experiments above. The agreement between the results appears to be quite good, 
especially given that the results are obtained by substantially different methods. 
Inspection of Figs. 34 and 35, where a comparison is made between the collision 
efficiency curves of Bragg (1981) and the values predicted in this paper, shows that 
the curves match quite well. The greater extent of impingement predicted by the 
present results may be a function of the considerable care that has been taken to find 
these values directly, rather than by extrapolation. In both figures, Bragg’s 8 curve 
has a slightly lower value of &, , that is the peak is shifted to the left. This is the 
opposite shift to that of Fig. 33. The techniques used by Werner much more closely 
resemble those used here, than do those of Bragg. Since the agreement between 
Bragg and the present paper is much better than with Werner, we may suspect that 


Werner's results may be in error. 


4.5 Comparison with experimental collision efficiency curves for several airfoil 
types. 

All of the results with which we have been making comparisons up to this 
point have been based upon theoretical calculations of 8 curves and impingement 
characteristics. We now subject the program to a series of tests which will allow us 
to determine its accuracy as compared to experimental results obtained in a wind 
tunnel using a distribution of impinging droplet sizes. These results are found in a 
paper by Gelder et a/. (1956). The local collision efficiency was determined by 


covering an airfoil surface with blotter paper, and then injecting a water soluble dye 
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into the water used to produce the droplet spray. A colorimetric analysis of the 
blotter paper revealed the rate at which dye reached the airfoil surface, and thus gave 
the value of 8. In order to increase confidence in the conclusions which could be 
reached from this intercomparison, three sets of cases were run. in the first three 
cases the history term was included. In Case 34, the history term was dropped in 


order to study its significance upon the accuracy of the results. 


4.5.1 The collision efficiency of 15% thick Joukowski airfoil at a zero attack angle. 

The first comparison set is displayed in Table 13. The droplet size distribution 
of the tunnel spray resembled a Langmuir "D” distribution with a mass median diameter 
of 186 um. All four cases produced from the program (31 through 34) show a val- 


ue of 8 


9 Which is slightly higher than the measured value. The overall collision 


efficiencies ET tend to be slightly lower than measured, and because we have not 
modelled the largest droplets in the spectrum, the impingement limits Re are signifi- 
cantly underestimated. Once again the monodisperse droplet size distribution of Case 
33 provides good estimates of 8, and Ee as compared to those of Case G The 
effect of dropping the history term (Case 34) is to further reduce both E and B,. 
This is consistent with previous comparisons with and without the history term. We 
see from this comparison that including the history term does indeed result in a better 
simulation of the experiment results. We now turn our attention to Figs. 36 through 
38 which display the results of Cases 31 through 33 respectively as solid lines, and 
experimental results as dashed lines. There has been no smoothing applied to the 
curves making up Case 31. For discussion of the need for smoothing, return to 
Section 3.2.4. The 8 curves for 25.5 and 13.2 um diameter droplets are combined to 
give a mean curve (shown as a heavy solid line without symbols). We see that where 
the inner 8 curve (for the smaller droplets) terminates, a kink results in the B curve. 
If this case is repeated, but with the application of a variable length filter of maximum 
length 0.2 times the length of the total 8 curve, the result is the B curve of Fig. 37. 
The kink has been smoothed out and the limits of impingement have been extended. 
We see that the variable length filtering has two significant and desirable features: 


1. cusps caused by simulating the natural droplet distribution by a small number of 
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monodisperse size categories are removed; 
2. the limits of impingement are extended, and thus the effects of the larger 
droplets which are not explicitly modelled may be crudely accounted for. 
Fig. 38 shows the filtered and unfiltered 8 curves for a simulation using a single 
droplet size of 186 um. Once again the agreement with the experimental results is 
very good, although the effects of the largest droplets are not modelled correctly. 
The overall fit is not quite as good as that for Case 32, but if this level of error is 
acceptable, the results of Case 33 can be produced at approximately half the cost of 


Case 32. 


4.5.2 The collision efficiency of a 15% thick Joukowski airfoil at a 4° angle of 
attack. 

Table 14 displays the results of the second comparison set. The experimental 
results of Gelder et a/. are designated as Case G. We have also inserted two other 
theoretical results in order to increase the pool of results available for comparison. 
Kloner (1970) (designated as Case H) has produced a numerical model which solves for 
the potential flow about an arbitrarily shaped airfoil and then calculates the droplet 
trajectories. His model is very similar to that of Werner (1973), which was described 
in Section 4.4. Kloner also cites the results of Guibert et a/. (1949) (designated as 
Case |) which were obtained by the methods of Langmuir & Blodgett (1946), described 
in Section 4.2. In both cases, monodisperse droplet size distributions are used. The 
total collision efficiency predicted in Cases G, H and | is 39.2, 37, and 39% respec- 
tively. Gelder et a/. measured a maximum local collision efficiency Boe Of420%. THE 
we turn to the predictions of the present program for ALPHA=4.0, we see Ef 
varying from 38.6% to 39.5% and 8. varying from 68.2% to 74.7% depending upon 
the number of size categories used. These results are displayed in greater detail in 
Figs. 39 through 41. When we compare the unsmoothed mean 8 curve (Fig. 39) or 
its smoothed counterpart (Fig. 40) to the experimental 8 curve (displayed as a dashed 
line) we immediately notice that our results seem to be shifted somewhat to the left 
of the experimental curves. Excepting this anomaly, all of our curves appear to match 


quite well, especially the smoothed versions. When only a single droplet size category 


DEMOS $56 ae Qs. wee 
‘eeid) att! ic. etcat's arf curt bite DBpiaia«h -6% name he. | 


ot oenwooes yiatwio Sth vay beletey yihakaxe fen ae. F 
j 


SBnie 6 Creu iin 4 totesvua, & Bewst ire. lew bean! al) 


ay 


2i stuses letermisdas oot Ae TeMeRIGs 4M WapeoestD a aees 


2 Ss %¢ VN), SH ud S22 esl) Wot rl 2a Soo Ele For at 38) . 


miceriih ee Ss hes ste 1a tid nto Cf e2ad te atues 


‘ 


1 


Grd bs Tie ide eOUDSL, Ae SE .« to -venpisitve ever ied} 
\ 
ve gtit 0 prels gras Ssocbsrad? “) ehvest aor avelagie Six | 
; = i 
yarreks oc “aida 5 tes). 2% colenoeetie ve ie wenled % 
ae aye 
= Chie coq sc! seasyom of 1Sino-(t eiyaeiell 
: . —T 
spore laSetaain & Seav—O 1G tel @asD ae Sarangi amy OS 
iaigaw. aft 2etsvolan nS? Bae Honus poets Ciaas: ee “Sos wh 
} 
sdhoeab | se. * JEXE ria) to fant ct selena wey 2 wonewn ath | 
6 Sotariniear (Bie é aie? bQ etived: ett sofa one ane AA ae 


Yenmges eqns AVEO 2 ULNNEA TO gaewen Ve ¥o Ded 


si eeu St EnoiiiiGaib es2 tslage eteGgeiGunemn jesens Moe mt 


¢r) 


racear EL one.0t SEE 2 | ane DO eee ni belsinarg 
GS, 40,18 > 55 Ages ool Mmlrrumern « mses . ve mined 
4 8@a05% OO: "Lh OF -mewpPel1g Indes st! io enpiebew ef ot 
7 
aco eT eT 1S89 mov pms ) soa #886 of ABBE, 
, ; ( sf, - 5 : 
he car 4 @ + Pe ve , jn : tal 

fy Ren CBs 30 | Sysiges BG aie ~“@2—en | Had. 22NOGRRO wie: 
We py sytus 4 mean nsrherorneny af scaqmas sw retw te 
helieet Bee Devyulcei avwe 4 eens ike oft ot Sle pt rere ¢ 


8 


71) a7 .c! Jetwense. befiiia es Gl rieee c2lusss cus tel eaten ima 


BSVWs wo Glia Wiermins 2h siccabxs evs fenernagns 
7 
Cris WG Aaa 


nmsin 6¢ “es 15 


VIORSIRS Sar.) 


rm 

’ 

ra 
A 


83 


is used, as in Case 37 (Fig. 41), the same misalignment is evident. Once again, as in 
Section 4.5.1, the smoothed monodisperse 8 curve approximates the experimental 
curve almost as well as the 8 curve from Case 36, but at a considerably reduced 
cost. 

In order to investigate a possible explanation for the misalignment between our 
results and the experimental ones, we have run another simulation identical to Case 36 
except that the angle of attack has been changed to 3° The result (Case 38, Fig. 42) 
is a much better match between the two 8 curves. We may speculate that a one 
degree error in the experimental results might be possible, as this seems to be a 
relatively small error in the alignment of a wing section relative to the flow in the wind 
tunnel. These results point out a significant factor in these intercomparisons. The 
present program is able to predict the changes that will occur in the 8 curve as a re- 
sult of a small change in the conditions defining the case. Thus if comparisons are to 


be fruitful, the experiments must be done with great care. 


4.5.3 The collision efficiency of a NACA 65-212 airfoil at a 4° angle of attack. 
This set of simulations is outlined in Table 15. The experimental results with 
which we are comparing are once again those of Gelder et a/. (1956) designated as 
Case G Two case sets are incorporated in the table. The first set is the more 
difficult to simulate because the collision efficiency is very low. This means that the 
trajectories are much more curved and thus that more computing effort is required to 
maintain sufficient accuracy during such calculations. Because of the computing effort 
required, monodisperse droplet size distributions are used in both of our cases. The 
values of Es and B for Cases G and 39 are very similar, indicating that the program 
is performing well under these conditions. The impingement limits are in poorer 
agreement because the largest droplets in the spray droplet size distribution are not 
modelled in Case 38. If we shift our attention to the second set, we discover that 
there is a significant discrepancy between the experimental results (Case G) and those 
predicted by this program (Case 40). It is interesting to note that the theoretical 
predictions of Bragg et a/. (Case F) are in better agreement with our results than are 


the experimental ones. This is even more evident when we look at the three 8 
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curves of Fig. 43. The peaks of the three curves align very well, contrary to the 
situation in the previous section. The greatest disagreement between Cases G and 40 
appears to be along the lower surface. We see that the short-dash curve of Bragg 
et a/. is also lower than the one predicted by our program, although our program 
predicts a greater extent of impingement along the lower surface than does that of 
Bragg et a/. The considerable discrepancy between the two theoretical curves and the 
experimental curve remains unexplained. Figure 44 shows the impinging droplet 
trajectories used in determining the 8 curve of Case 38. It also displays the slender 
nature of this particular airfoil. It is the small radius of curvature of the airfoil nose 


which leads to the sharp peak in the collision efficiency curves. 


4.6 The collision efficiency of a modern light aircraft wing. 

This set of simulations is included to show that the methods presented may be 
applied to a variety of two-dimensional airfoil profiles under conditions appropriate 
for general aviation wings as well as helicopter main rotor blades. The case with 
which shall compare is described by Bragg et a/. (1981). They used conditions based 
on experimental results obtained using a full-scale general aviation wing section in the 
NASA Lewis icing wind tunnel. A comparison between the results of our programs 
and the experimental impingement results for this Hicks modified NACA 64-215 airfoil 
at a 0.7° angie of attack is given in Table 16. Bragg et a/. do not provide values of 
a for their experimental and theoretical results. However, they do provide 
estimates of the amount of ice accretion which forms for a given value of the 
non-dimensional accretion parameter. From these, ES may be inferred as 5.3 and 
6.2% respectively. The value obtained by the present program is 8.2%. The set of 
trajectories which were used to obtain this result are shown in Fig. 45. The airfoil 
shape was derived from data provided by Bragg (1981) and it was verified against the 
profile coordinates provided in the original paper (Szelazek and Hicks, 1979). A plot 
(provided by Bragg, 1981) of the experimental and theoretical accretion shape on the 
airfoil nose displays an airfoil profile in the nose region which departs substantially 
from the one provided for use in this dissertation. This discrepancy has not yet been 


resolved. The collision efficiency curves for the two theoretical results are displayed 
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in Fig. 46 where the solid line represents the present results, and the dashed line those 


of Bragg et a/. 


4.7 A summary of the collision efficiency simulations. 

In this chapter a series of intercomparisons has been made using a variety of 
airfoils to explore the degree of agreement between the collision efficiency 
predictions of the present program, and the impingement characteristics of other 
theoretical and experimental results. We have begun with a simple icing shape, the 
cylinder, and gradually moved up to recent airfoil designs, such as the Hicks modified 
NACA 64-215 airfoil. The agreement with previous results has been very good in 
many cases, with at least one of our simulations agreeing well with either a previous 
theoretical or experimental result for each airfoil tested, except perhaps the final one. 
In this last case, where a modern general aviation airfoil was used, the error may be 
caused by a discrepancy in the airfoil profile between our results and those with 
which we are comparing. However even in this case, the general features of the 8 
Curve are reproduced reasonably well. These results concerning 8 give us 
confidence to carry out still further comparisons, this time of accretion profiles, in the 


next chapter. 
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5. THE PREDICTION OF ICE ACCRETION AND OTHER APPLICATIONS. 


5.1 Introduction 

Chapter 4 has presented a series of intercomparisons between results of the 
model described in Chapter 2, and theoretical and experiemental results for various 
“airfoils” . These comparisons were limited to several characteristics of the droplet 
impingement, such as the total collision efficiency c and the slope of the local 
collision efficiency (or 8) curve. This restriction was intentional. It allowed us to 
make comparisons with those types of results for which numerous examples exist. 
Our desire to compare the present model's predictive capabilities regarding the area 
and shape of accreted ice profiles with other theoretical and experimental simulations 
is hampered by a distinct lack of carefully controlled results with which to compare. 
This fact will be a subject for discussion in Chapter 6. 

Within this chapter, we shall make our first comparisons for accretion on a 
cylinder. This substrate has played a pivotal role in icing studies, and is one of the 
few for which previous theoretical predictions of accretion profiles exist The next 
airfoil to be studied will be the NACA 0015 at 0° and 8° angles of attack. Following 
this, the NACA 0012 airfoil forming the main rotor of a Sikorsky S-55 will be 
examined. 

Sections 5.5 and 5.6 will indicate some of the applications for the program 
described and tested within this dissertation. In Section 5.5, the predicted accretions 
on a NACA 0012 and a NPL 9615 airfoil are compared to see what effect a change in 
airfoil shape has upon its icing characteristics. This type of comparison is also applied 
to the Joukowski 0015 and NACA 0015 airfoils. Finally, in Section 5.6, an experiment 
is carried out to test a scaling theory, by comparing our collision efficiency results for 


Joukowski 0015 airfoils at full and one-quarter scale. 
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5.2 Accretion on a cylinder. 

A set of cylinder icing computer model simulations and wind tunnel experiments 
have been carried out at the National Research Council's facilities in Ottawa, Canada 
(Stallabrass & Lozowski, 1978; Lozowski et a/., 1979). The numerical simulations 
incorporate the collision efficiency results of Langmuir & Blodgett (1946) and a 
sector—by-sector calculation of the thermodynamics of the accretion. These 
calculations take into account the impingement of supercooled water droplets and ice 
crystals. When the deposit temperature is at freezing, the unfrozen deposit is allowed 
to run back along the cylinder surface, thereby altering the accretion profile. This 
model does not incorporate the time dependence of the accretion process. This will 
not cause difficulty in making comparisons, however, because the present model can 
be run in a single step fashion as well. 

The cases with which we wish to make comparisons will be limited to those 
from the sets described by Lozowski et a/. which occur in a cloud composed entirely 
of supercooled water droplets at temperatures at or below -15°C. These restrictions 
are necessary because the present program has not been designed to accommodate 
the calculations of ice crystal trajectories, and because it is restricted by design to 
simulating riming. Thus the accreting droplets must freeze upon impact, requiring a 


relatively low air temperature. 


5.2.1 Accretion with a constant density. 

The first seven cases presented in Table 17 are calculations of the accretion 
on a cylinder with an assumed constant density of 917 kg mr, as identified by 
DENSE=0. Cases 42 and 43 were run to investigate the importance of incorporating 
the airfoil surface curvature when calculating the thickness of the accretion. This 
process was discussed in Section 2.4.6.2. The non-dimensional cross~sectional area 


of the accreted ice is given by: 


7. =n we (5. 1) 
O 


where ho is the ND maximum airfoil thickness, w is the ND accretion parameter, and 


ET is the total collision efficiency. When we compare as given by (5.1) with the 
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value obtained from (2.90) for Cases 42 and 43, we find that while the total collision 
efficiencies of Case 42 [ignoring airfoil curvature) show a relative disagreement of 
8.3%, those of Case 43 are virtually identical (a difference of -0.1%). We may 
conclude from this experiment that due consideration of surface curvature is important 
for obtaining an accurate estimate of the accretion profile shape and area The 
profiles for these two cases are displayed in Fig. 47. Also indicated is the 
experimentally derived profile of Lozowski et a/. (1979). 

Maintaining the same conditions as for Case 43, Case 44 incorporates two 
categories of droplet size (27.0 and 144 um _ diameter) as compared to the 
monodisperse distribution of Case 43 (20 um diameter). The resulting accretion area 
is identical, although the values of 8, and a have decreased slightly. When we 
compare the accretion profile to the profiles observed and predicted by Lozowski 
et a/. (see Fig. 48), we see that the agreement with the experimental results is 
somewhat better for Case 44 than for Case 43, particularly in the region where the 
accretion is thinning rapidly, that is near 2 G: We also may note that the values of 
By are virtually identical for the two theoretical results (Cases 44 and H), although the 
program of Lozowski et a/. underpredicts the accretion thickness virtually everywhere 
as compared to the experimentally observed thickness. We may speculate that the 
agreement at the "nose” is due to their use of Langmuir & Blodgetts’ (1946) values for ~ 

We have shown that the present program generates results that agree well with 
those of Langmuir & Blodgett. On the other hand, the formulation used by Lozowski 
' et a/. to specify the 8 curve does not conserve mass; that is they do not require the 
area under the 8 curve to equal the total collision efficiency as we do. 

The accretion areas for the experimental and theoretical profiles of Lozowski 
et a/. (1979) are 0.081 and 0.065 respectively as compared to 0.0864 and 0.0841 
for Cases 43 and 44 respectively. The areas for the results of Lozowski et a/. were 
determined by measuring (with a planimeter) their profiles drawn at the same scale as 
the original (full size) version of Fig. 47. Thus the relative difference in areas between 
Case G (experimental result) and Case 44 is only 4%. The remaining cases in Table 17 
deal with simulations made with a LWC of 0.8 g m°. The collision efficiency curves 


for the 27.0 um and 14.4 um diameter droplets of Cases 44, 45 and 46 are shown 
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as solid lines with symbols in Fig. 49. Also shown is the filtered 8 curve of Case 
46. The effect of this filtering may be studied by comparing Cases 45 and 46 in 
Table 17 and Fig. 50. We note that while the total accreted area remains the same, 
the peak value of 8 is reduced slightly by filtering. Of greater significance, however, 
is the extension of the limit of impingement by 19% when filtering is applied. This is 
seen clearly in Fig. 50 where the dashed curve corresponds to the filtered case. The 
filtering also removes the cusp in the accretion profile of Case 45, caused by kinks in 
the unsmoothed 8 curve first noted in Chapter 3. In Fig. 51 we compare our results 
for Case 46 with the theoretical (dashed line) and experimental (solid symbol-less line) 
results of Lozowski et a/. Once again, as in Fig. 48, the theoretical results match well 
at the “nose”. In this figure, the departure from the experimental results of the model 
results of Lozowski et a/. is greater than it was previously. Our simulation 
underpredicts the accretion thickness observed by Lozowski et a/. virtually 
everywhere, although the departure is greatest where it appears that rime feathers 
may have begun to form at the outer edge of the accretion. The implications of the 
variation of ice density in such rime feathers will be investigated in the next section. 

Table 17 compares the accretion areas for Cases G, H, 45 and 46. Cases H, 
45 and 46 have accreted areas which are 40%, 16% and 16% less than the area of the 
experimentally determined accretion of Case G. 

Cases 47 and 48 are the same as Cases 45 and 46 with regard to filtering, al- 
though in the new pair the natural droplet distribution is modelled by a monodisperse 
distribution of droplets having the mass median diameter of the natural distribution. 
The unfiltered and filtered collision efficiency curves of these two cases are shown in 
Fig. 52 as solid lines with and without symbols respectively. The area of the accretion 
is shown in Table 17 to remain unchanged by the filtering, though the value of 8, is 
reduced, and that of Qe increased. The two corresponding accretion profiles are 
given in Fig. 53, with the filtered version appearing as a dashed line. 

The best results from Cases 45 through 48 (that is, those with the kinks 
filtered out) are displayed in Fig. 54. The difference between the profiles represented 
by a solid line with symbols (Case 48) and the long dashed line (Case 46) is small, 


indicating that by filtering the 8 curve, monodisperse droplet distribution simulations 
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can provide comparable results to two-droplet simulations at approximately 50% of 
the computing cost. 

The accreted area for Case 48 is in somewhat better agreement with the 
experimental results of Lozowski et a/. (Case G) than is Case 46, but the improvement 


is small (14% vs. 16% error). 


5.2.2 Varying the density of the accretion on a cylinder. 

Section 5.2.1 drew attention to the discrepancy between the present results 
and the experimental observations of Lozowski et a/. (1979) regarding the area and 
the shape of the accretion profile. This disagreement is most pronounced where it 
appears that rime feathers have formed. 

The stochastic fluctuations in density which are an integral part of rime 
formation were discussed in Section 2.4.6. These are not explicitly modelled by the 
present program. On the other hand, variations of density caused by the degree of 
droplet distortion upon impact may be modelled inasmuch as these variations are a 
function of the impacting droplet's velocity, diameter and the temperature of the 
droplet prior to impact. A formula for varying the accretion density based upon these 
three variables was presented in Section 2463. We have allowed for two 
interpretations of the manner in which this formula is to be applied The first 
(denoted by DENSE = 2) uses the total droplet impact velocity in (2.123), whereas the 
second (DENSE = 1) uses only the component of the impact velocity normal to the 
airfoil surface at the point of impact The results of three simulations with variable 
density are presented as Cases 49, 50 and 51 in Table 17. 

Beginning with Case 49 (DENSE = 2), we see that an improvement in the total 
accreted area is made over previous cases (a difference of 6% vs. 14% for Case 47) 
but that this is at the expense of agreement in the accretion thickness at the ‘nose’. 
Since the 8 curve has not changed from Case 47, we also note that the limits of 
impingement are identical in Cases 47 and 49. The accretion profile for this case is 
compared to the profiles of Lozowski et a/. (1979) in Fig 55. The conclusions 
reached from the table are verified: the areas of our results and the experimental ones 


are more similar than before, but the previous cases (Cases 46 and 48) seem to fit the 
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experimental profile better over most of the layer's eiierts 

When the normal component of the velocity is used (DENSE = 1) the accretion 
thickness (Case 50) at the "nose” remains the same as for Case 49, but there is a 
substantial increase in the thickness as we approach the limits of impingement (see 
Fig. 56). In this region the component of the velocity perpendicular to the airfoil 
surface decreases rapidly, thereby producing a rapid decrease in the accretion density 
according to (2.123). The total area of the accretion increases considerably as well 
(from 86% of the experimental area for Case 48 to 136% for Case 50). 

If conditions remain the same but the natural droplet distribution is modelled by 
two size categories instead of one, and if a variable length filter (F = 0.2) is applied, 
we find that the accreted area decreases somewhat from the previous case (from 
136% for Case 50 to 128% of the experimental area for Case 51). Further, the 
profile shapes agree to a sightly greater extent, but generally agreement is still not 
good (see Fig. 57). This points out the need for better formulae to be used in 
estimating accretion density. Such formulae should be based on empirical studies of 
the microscopic processes of rime accretion. Judging from the poor performance of 
the present results, variable density simulations will not be pursued further. 

There is also a need for better understanding of the growth angle of rime 
feathers. Lozowski (personal communication) has simulated the growth of rime 
feathers numerically (see Fig. 15). They display a total growth angle of about 35° It 
is interesting to note that the angle between the edge of what appears to be a rime 


feather in Fig. 57 and the edge of the predicted accretion is approximately 15°. 


5.2.3 Multi-layer (time-dependent) accretions on a cylinder. 

All simulations carried out to this point have employed the airflow about the 
original airfoil profile to determine the collision efficiency and thus the accretion 
profile. We shall now move to time-dependent modelling, where the airflow is 
recalculated to account for the change in airfoil shape after each of a series of layers 
have been accreted. The first example of this method is Case 52 in Table 17. Here 
the accretion parameter w has been reduced to one-third of its previous value, and 


three layers of ice have been simulated In physical terms, this is equivalent to 
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studying changes in the accretion after time periods that are one-third that of the 


original accretion period. From Table 17 we note that B, Increases slightly with time, 


G 
filtered (solid line without symbols) 8 curve for layer 3 and a similar curve (dashed 


while ET and 2%. decrease. This can be seen as well in Fig. 58, which displays the 


line) for layer 1. The accretion area decreases with time much as does the total 
collision efficiency. The total accreted area after three layers is 0.1677, about 84% 
of the experimental area, compared with 86% for the single step case (Case 48). The 
limits of impingement are essentially the same, the total collision efficiencies are similar 
(55% for Case 48 compared with an average of 53.4% for Case 52) but the effective 
combined value of Cy. has increased to 80.1% from 70.9%. This combined value of 
By is derived from the thickness of the accretion at the nose, and thus incorporates 
the effect of the radius of curvature. It indicates the value 8 would need to have at 
the “nose” in order to achieve the same thickness with only one layer. The accretion 
profiles for Case 52 are shown in Fig. 59. Also shown are the experimental and 
theoretical profiles of Lozowski et a/. (1979) in solid without symbols, and short 
dashes respectively, and the predicted profile for a single layer of accretion (Case 48) 
in long dashes. We note from these comparisons that the agreement between Case 
48 and the experimental results is better than between Case 52 and the observed - 
profile. Although we do not know why time-dependent modelling has resulted in 
poorer agreement rather than better, we suspect that an accurate formula for 
predicting the density of the deposit has not yet been employed. It is interesting to 
note that the multi-layer case does give better agreement with the angle of growth of 
rime feathers simulated by Lozowski. 

The results of Case 52 incorporated the use of a variable length Boxcar filter 
(F=0.20) upon the 8 curve for each layer. A strong incentive for the development of 
such a smoothing operator is displayed as Case 53 in the next four figures. Fig 60 
shows the collision efficiency curves (solid lines with symbols) for the 27.0 and 14.4 
um diameter droplets used in the simulation of layer 1. The unsmoothed 8 curve 
lies between them. The collision efficiency curves for layers 2 and 3 are displayed in 
Figs. 61 and 62. Our attention is immediately drawn to the wavy nature of these 


curves near the limit of impingement. To study the cause for this, we must examine 
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the accretion profiles for the situation, which are displayed in Fig. 63. The 
unsmoothed 8 curve for layer 1 has resulted in a slight trough and ridge in the 
accretion profile for this layer. The program is so sensitive to the profile shape, that 
when the curves are calculated for the second layer, there is an amplification of the 
waviness of the surface of the first layer. That is, the collision efficiency is predicted 
to decrease on the “windward” side of the trough, and to increase on the “windward” 
side of the ridge. Careful scrutiny reveals that this positive feedback process 
continues for the third layer as well. The net result is a “windward” shift of the 
trough as the number of layers increases, along with an amplification of its magnitude. 
Similar tendencies may be noted for the ridges. This type of feedback must be 
damped out if we are to successfully model multi-layer time-dependent accretion. 
Part of the problem lies within the interpolation scheme used for determining the 
shape of the g curve. The present scheme seems to amplify the ‘waviness’ which 
exists in the data points (8 values). However, this case graphically displays an exam- 
ple of preferential riming upon small protrusions on a airfoil surface. It may well be 
that such protrusions play a significant role in the formation of rime feathers as well, 


such as that shown in the experimentally observed profile of Fig. 59. 


5.3 Accretion on a NACA 0015 airfoil at 0° and 8° angle of attack. 

Stallabrass and Lozowski (1978) have described a series of wind tunnel 
experiments which they carried out to study the icing of a section of a helicopter tail 
rotor. We have chosen two cases from these experiments with which to make 
comparisons. The conditions for these two cases are summarized in Appendix H and 
in Table 18. 

Let us first confine out attention to accretion on a NACA 0012 airfoil at a 0° 
angle of attack. A single layer simulation of the accretion under these conditions is 
designated Case 54, which may be compared to the experimental results (Case |) in 
Table 18 or in Fig. 64. From this figure we see that the theoretical and experimental 
accretions nearly coincide in all regions except near the nose where a considerable 
difference exists. The area of the accretion predicted by the program is 6% less than 


that observed in the experiments. 
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In an attempt to improve upon the results of this first simulation, we have tried 
another, this time with a total of three layers. The non-dimensional accretion parame- 
ter w has been reduced by a factor of three to give an equivalent total accretion 
period, with all other conditions remaining the same. Scrutiny of the results of Case 
55 in Table 18 reveals the following facts. As the number of layers increases, the 
peak of the 8 curve retains its original value although the total collision efficiency 
decreases. There is a gradual increase in the limits of droplet impingement. The total 
accreted area decreases much as does E with the final accreted area for all three 
layers being 7% less than the area of the observed accretion profile (as compared to 
6% less for the single layer case above). These results may also be seen in Fig. 65, 
which shows the filtered and unfiltered 8 curves for the first (solid lines) and third 
(dashed lines) layers. The accretion profiles for this case are displayed in Fig. 66. 
The equivalent value of Be for all three layers is 98.4% as compared to 80.4% for 
the single layer. Since the actual values of By do not exceed 80.4% for any of the 
layers of Case 55, we see that the layers increase in thickness with time because of 
the decreasing radius of curvature of the airfoil surface near the nose. This accounts 
for the higher equivalent value which is calculated by employing the ratio of accretion 
thicknesses at the nose between Cases 54 and 55. The result of this simulation is to 
alter the shape of the ice accretion, that is to make it generally more elongated than 
for the previous singie layer simulation. The profile for Case 55 appears to agree 
better with the experimental profile than that for Case 54, for virtually its entire 
length. The inability of the single step method to take into account the changes in the 
radius of curvature is another of the weaknesses of the method. 

We shall now turn to a set of comparisons for the same airfoil under almost 
the same conditions, with the exception of a change in angle of attack to 8° The 
experimental results of Stallabrass and Lozowski are once again designated Case | in 
Table 18. When we compare Case 56 with Case |, we see that our single layer 
simulation overestimates the accreted area by 32%. Inspection of Fig. 67 reveals that 
the accretion near the nose is underpredicted, while that along the lower airfoil 
surface is overpredicted. Moving on to a three layer simulation (Case 57), we note 


that while E decreases consistently with time, Re increases with time just as for 
m 


j 


beiv ava ew oitalumic Te) ait ene att Nea Svea OF 
netsrooe lanclenainib-tioi SAT  2navelimane to intor « otey 


a a 
ists 


podercyr jefot Inplemins As eviD OF 9am 46 ad s yo. Beguine, 
giuee, ait to! yaw? erhee ere: a a anqiibias write : rf 
seca@iori wavel tO Ween SEMA 2Ppe? paolo? ot ane Bt i 
(rsia 1s: ne . co sto ortt ciGrite eidev deniphe eff eniesey Bw Re a 
“tT aevtSe f ev tHdecth Te ei elt Al deseo levee B ah rs 


92 Jernt tee? Ata 3. @66h, $i in bi 2655 TARO i 


= ey 5 AL a 
ena’ 28) Sito iniie 3% +4 Agpsda arm bins ert? “ert anal aS 4 


Sa ‘Ss 20 age yaa’ 2ueeF econ Svets areas Teva! shgoia sett 1 

a 

uit tris (garni) bea teu sph 1o* sata? & ce ball ons Sergslit ert ahi 
\ & 

Havaicch ou de> eal FoOTPaRIOwW noleean wiT eye 


is 


® 
= 


5? 08 of he sqrios <a 48.88 ct graye! sort GA jel ae ay 
hw 


to fis 0 Se oabuxalton eb. 8) to sauigvi eutae anh alley a 
{ ; ’ | 


wig le | aac >» Ser 29g6)'ore awe a aursviis te ind 


ie°550 70 Ons art priyolcne Ye Osten pres af, Coinw quiet WaUhaEMm, 9 


5) 2 noffalieale zit Yo tude adh 2a Bre ap 2se92 maeVvied Geort art 2a @ 


mA 
cart batsornicia econ vilevecteg iW Sige, Of 2) face ages oor so) on oO 

Sigt Of ewegu OC sea. 7? snes bokal . ASr aN rs |) —_ 
sites at, vileurwy 36! »bGodggy) a rerf? Met Site VO) (A? 


ave il s9¢ ABM arr PPRGLDG ia) aks of bortent gets vipwe art 1 xa 
, 4 : 
peritnen a7. te sacdoriss sf! to “aetiprae at 


teoniis (Spau/llotye srse's? i¢t rigenmgmon to vce sob wat ail . 
a 7 : x - 7 7 7 

- A | ned = 
ay SB el Wake. Te s art | syngha S to noduesns ant tt 


ai l« 20 toes diteprest fabe soho > beak hte sen veniell we ann 
yal siete ye BE 'ee 3 ve ve ne 

tiny en oo. fact sa vo a a6 7. 

mantt ata io er RON ENeore waiee rh: 


vot Ww W comm Tels, ative uetibioiastne 


or av 432 eee) no 1eiuwd 3 


7 we aod 
70F Se.33y Gri) fiw -zaeRetar 


: - b= 
- 7 -s 2 : 
7 i - 
_ 


mem 


4 
ote = oe 


95 


Case 55. The accreted area A decreases again along with Ee The total accreted 
area for the three layers increases very slightly, while the effective value of By over 
the three layers shows a smail increase. The change in the 8 curves is illustrated in 
Fig. 68, while the accretion profile is displayed in Fig. 69. There is still lack of 
agreement between the profile for the triple layer case and the experimental profile. 
This time, however, the accretion at the nose is better simulated. The disagreement 
leads us to suspect that the angle of attack for the experiments may have been 
different than for the present simulation. There are also uncertainties caused during 


the measurement of the accretion profile. 


5.4 Accretion on a NACA 0012 airfoil at a 5.7° angle of attack. 

Stallabrass (1958) describes a series of icing experiments performed upon a 
Sikorsky HO4S-2 helicopter in the icing spray rig of the National Research Council, 
Ottawa. The spray rig produces a cloud composed of supercooled water droplets 
which envelopes a portion of the helicopter hovering nearby. The accretion period is 
controlled by the time the helicopter remains within the cloud. Other conditions are 
Clearly defined, except for the liquid water content of the cloud, and the size distribu- 
tion of the droplets. Various factors contributed to the difficulty of determining the 
liquid water content accurately. 

Stallabrass resolved this problem in determining the LWC by comparing the ice 
accretion thickness for a given airfoil with the accretion predicted at the stagnation 
line of a cylinder of radius equal to the airfoil radius of curvature at the nose. The 
LWC was estimated so that the two thicknesses would be identical. 

The results of a numerical simulation of the icing in one experiment described 
by Stallabrass are given as Case 58 in Table 19. The predicted accretion area is 50% 
greater than the observed icing accretion area The droplet trajectories used to 
calculate the collision efficiency curve upon which the accretion area is based are 
shown in Fig. 70. The two accreted profiles are dispiayed in Fig. 71. We note that 
the accretion at the nose is underpredicted, while the thickness on the lower and 
upper surfaces is highly overpredicted. This is similar to the results of Section 5.3. 


An attempt was made to improve the results of the comparison via a three layer 
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time-dependent simulation. The results are found in Table 19 as Case 59. As time 
progressed, the values of Bo and E.. decreased, while the limits of impingement 
dey and 2 GL generally increased. This can be seen also in Fig. 72 where the curves 
of the first and third layers are compared. The accretion area turned out to be the 
same as that predicted by the one layer simulation, although Fig. 73 reveals that the 
agreement in the shape has improved somewhat near the nose as well as along the 
upper and lower surfaces. 

The disagreement between theoretical and experimental results is somewhat 
different here than between Cases 57 and |. In the earlier pair, the entire accretion 
was shifted upwards so as to imply that a different effective angle of attack might 
exist. Here the program overpredicts the accretion thickness on both the upper and 
lower airfoil surfaces. Since the droplet size distribution was not measured precisely, 


this effect could explain the disagreement evident in Fig. 73. 


5.5 Predicting the effect upon icing of changes in airfoil shape. 

A possible application of the program presented in this thesis is to study the 
effects of changing the airfoil profile upon the accreted ice. One pair of rotor blade 
profiles chosen for such a comparison is made up of the NACA 0012 airfoil and the 
NPL 9615 airfoil which is derived from it. The latter profile has a 6.2% longer chord 
which is developed by forming a drooped nose extension to the standard NACA airfoil. 
The primary purpose behind such a restructuring of the profile is to improve the stall 
characteristics of the blade when the angle of attack is great. However, it will be 
interesting to study what effect this change has upon the blade's icing properties. 

The results of such a simulation are given in Table 19 (Case 60). All conditions 
were the same as for Case 58), except for the longer chord length. The trajectories 
used to calculate the collision efficiency curve for this airfoil are displayed in Fig. 74. 
The resulting filtered and unfiltered collision efficiency curves are shown in Fig. 75 as 
dashed lines. They are compared to the results for the NACA 0012 airfoil of Case 
58 (shown as a solid line without symbols). We see that the primary difference 
occurs part of the way back along the lower surface, where the NPL airfoil has lower 


values of 8. This curve also extends farther back along the length of the lower 
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surface than does the corresponding curve for NACA 0012. Table 19 indicates that 
the change in Ef is relatively small; from 60.1% for Case 58 to 59.3% for Case 60. 
The accreted area computed in the coordinate system of Case 58 shows that the 
second airfoil accretes marginally less ice over the same time interval. The accretion 
profiles for both airfoils are shown in Fig. 76 where the NPL 9615 airfoil is shown in 
proper perspective relative to the NACA 0015 from which it is derived. 

The slight indentation in the accretion profile near the nose for the NPL airfoil 
is an artifact produced by an error in the way the present version of the program 
calculates the accretion thickness of the highly curved surface when this surface is 
specified by too few points. A slightly more accurate prediction of the shape of the 
peak of the 8 curve when narrow peaks occur would help to alleviate the problem. 

A second set of comparisons between two airfoils under identical conditions 
may be made by re-examining Cases 12 and 27. They are presented together in 
Table 20. Case 12 describes a Joukowski 0012 airfoil, while Case 27 is for a NACA 
0012 airfoil. We see from Table 20 that there are only small differences between 


the values of BY 2. and a These differences may be studied in Fig. 77 where 


G 
the two 8 curves are displayed. The difference in accretion areas is only 4%, and a 
plot of the accretion and airfoil profiles (Fig. 78) reveals only minor differences. This 
indicates that small changes in the airfoil shape will generally produce only very small 


changes in the characteristics of the accretion. 


5.6 The scaling of airfoil models. 

A problem which has plagued aeronautical engineers since the inception of 
manned flight has been to determine the aerodynamic characteristics of a newly de- 
signed airfoil without producing and flying a full scale prototype. One solution is to 
test the airfoil in a wind tunnel where near-realistic conditions are simulated. 
However, as aircraft have become larger, building wind tunnels capable of achieving 
aircraft flight speeds in test sections large enough to house aircraft prototypes has 
become impractical. A simple solution is to scale down the prototype, exactly 
reproducing the airfoil characteristics at a substantially reduced size. According to 


dimensional analysis, several dimensionless ratios, such as the wing Reynolds number, 
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must remain constant when scaled experiments are run if the results are to be 
meaningful. A second significant factor is the maintenance of the correct Mach num- 
ber, or flight speed as a fraction of the speed of sound. This number must remain 
constant between the model and the full scale to obtain similar effects of 
compressibility. Unfortunately, maintaining both a constant wing Reynolds number 


given by 
Sis Ufo /u (5.2) 


and a constant Mach number is impossible as the airfoil size is scaled down. Thus a 
compromise is required to ensure nearly identical conditions between the full and 
reduced scale airfoils. 

Scaling theory, as it applies to aircraft, has been the subject of research of a 
series of investigators: Hauger et a/. (1954), Brun (1957), Googan & Jackson (1967), 
and Googan & Hubbold (1968). Their results (as they apply to helicopters and aircraft 
in general) have been summarized by Armand et a/. (1978). They have set down a 
number of conditions which must be met if the scale models are to lead to valid 
simulations of the full-scale conditions and results. Included in his summary are equa- 
tions dealing with aerodynamic, thermodynamic, water droplet trajectory, and ice 
deposit similitude. Since we have chosen to treat the helicopter rotor blade as an 
airfoil in two dimensional flow, the aspects of similitude due to the rotary blade 
motion may be ignored here. Also we do not consider the thermodynamic aspects of 
the icing process, and we shall ignore the requirements for thermodynamic similitude, 
provided that we are careful to ensure that both full and scaled down versions of our 
simulations fall within the range of conditions where no runback can occur. 


If the ratio between the model and full-scale airfoil chord lengths Is 


q = C,/C. (5.3) 


the ratio of pressures is 


= 4 
p> Py/Pe (5.4) 


the ratio of air temperatures (in °K) Is 
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e) = 
2 0,,/ 0. (5:5) 
the ratio of air velocities is 
U ae ty 
and the ratio of droplet radii is 
Boe ann ae (5.7) 


then the equation relating all these ratios is given by Armand et a/. (1978) as: 


; SE uU. 1-b 
q = — Bost) = : : (5.8) 
b -Sb/2 b-1 
D a (0, + 117) /0,. + 17)] 
The value of b in (5.8) is that obtained from 
C Re /24 = “a(Re )b (5.9) 
Dae cd d 


where this equation represents the least squares best fit to the actual droplet drag 
Curve over the range of Reynolds numbers that the droplet experiences prior to 
colliding with the airfoil. 

Equation (5.8) may be simplified considerably if we set some of the ratios equal 
to one. For example, to maintain a constant Mach number, set Scrat and eau 1. 
Let the model simulations occur at the same pressure as the full scale. Further, fol- 
lowing the lead of Bragg et a/. (1981) and conforming to the approach we have 


adopted in Chapter 2, let us rewrite (5.9) in the form 


7 b 
ond <1 
Cy = a(Re .) (5.1.0) 


From these assumptions we have ioe 1 and ioe 1 with 
a ae (5.19) 
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ee a / 7h (5.12) 


Equation (5.8) may thus be reduced to 
= 6 (5.13) 


In an effort to verify the above analysis, we have run a simulation (designated 
Case 61) using a Joukowski 0015 airfoil at one-quarter the scale of the airfoil used in 
Case 32. From Table 21 we see that Case 32 used two droplet size categories with 
mass median diameters for the two categories of 25.5 and 13.2 um. The detailed 
results of the trajectories of this case are displayed as a sample program output in 
Appendix |. From this output, we may note the range of Reynolds numbers that each 
droplet size experiences prior to grazing or colliding with the airfoil surface. Fig. 79 
displays a log-log plot of the calculated drag coefficient as a function of Re | and 
also shows two straight line least-squares fits, one for each droplet size category. 
The values of b for the two categories are: -0.66 and —-0.71 for the larger and 
smaller droplets respectively. When these values of b and the values of R dp re 
input into (5.13) and (5.7), we obtain the scaled values of the droplet diameter: 11.05 
and 5.87 um for the larger and small droplet size categories. Table 21 shows the 
results of the simulation using the reduced airfoil chord length and droplet diameters 
(Case 61). The values of E ane De are identical to the full scale model. The 
relative errors in the values of By and Ar are less than 1%. The collision efficiency 
curves for these two cases are displayed in Fig. 80. Once again we may note the 
excellent agreement between the 8 curves. Further tests are required under other 
conditions to verify that (5.13) has general validity, but these results are encouraging. 

This pair of simulations has provided another application of the present pro- 
gram. It may be used to check upon the validity of the assumptions leading to a 
particular version of a scaling theory by actually simulating the full-size and scaled 
down conditions and determing the degree of agreement between the results. The 


theory summarized by Armand verifies well with our simulations to the extent that we 


have tested the theory. A future version of the program which incorporates 
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thermodynamic calculations, might be employed to verify the thermodynamic similitude 


conditions. 


5.7 A summary of the accretion profile similations. 

This chapter has described a series of computer simulations of the ice 
accretions that would form on various airfoils under a diverse set of conditions. The 
agreement with the experimental observations of various researchers has been 
reasonably good, but certainly not as good as was experienced in comparisons with 
the experimental collision efficiency curves in Chapter 4. This lack of agreement 
could be the result of program errors or poor assumptions leading to the methods or 
equations employed within the program. However, the lack of experimental results 
with which we may compare, and the fact that most of these experiments were 
carried out when the droplet size distribution and liquid water content of the cloud 
could not be measured accurately, leads us to believe that the experimental conditions 
may not be sufficiently precisely defined to allow conclusive comparisons. 

Two applications of the program were also presented. The first involves 
predicting the effects of changing airfoil shape upon the accretion shape and area. 
The second consists of simulating the results of varying the airfoil chord length and 
droplet diameters so as to obtain approximate aerodynamic and droplet trajectory 
similitude. The results of these simulations suggest that the theory presented by 


Armand (1978), to the extent that we have tested it, is correct. 
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6. CONCLUSIONS 


6.1 Summary 

In this dissertation, we have developed a numerical model for the prediction of 
rime or dry ice accretion on two-dimensional airfoils. The model is primarily intended 
for application to helicopter rotor blades, but the techniques employed are equally 
suitable for other 2-D airfoil shapes, such as those used on general aviation aircraft. 
A set of assumptions has been presented which restricts the validity of the simulations 
to cases where the Mach number is below about 0.5, and the viscous, 
three—dimensional and time-dependent features of the flow about a rotor blade are 
ignored. 

The program incorporates the ability to model several airfoil shapes explicitly 
(the cylinder, the Joukowski airfoil, and several types of four- and five-digit NACA 
airfoils) and also any other profile whose surface can be specified by a series of (x,y) 
coordinates. The flow is calculated by analytical means when possible (for the cylinder 
and Joukowski airfoil), and by a vorticity substitution method otherwise. Since the ice 
accretion is caused by the impingement upon the airfoil surface of supercooled water 
droplets, the equations of motion for these droplets are integrated to yield the droplet 
trajectories. The integrations begin as the droplets move with the air several chord 
lengths upstream of the airfoil The equations of motion employed incorporate all the 
accelerative terms (including the effects of the droplet inertia, the effects of the drag 
of the air upon the droplet, and the effects of the finite rate at which vorticity is shed 
by the droplet as it accelerates). The integrator employed is the Runge—Kutta-Fehlberg 
fourth-order variable time step algorithm with local truncation error estimation. 

A series of colliding trajectories is calculated for a given droplet diameter 
under a specified set of ambient conditions. When the yo vs. 2 values for these 
trajectories are fitted by a quintic Hermite spline, the rate of droplet impingement at 
any point on the airfoil surface within the grazing trajectory limits may be determined. 
This allows us to calculate the ice accretion thickness in the vicinity of that point The 
thickness is influenced by the curvature of the underlying surface, by the density of 


the deposit, and by the accretion time. The latter quantity is kept small so that only a 
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relatively thin accretion is normally considered. The accretion density may be 
considered to be a constant, or a deterministic function of the droplet diameter, the 
droplet impact speed, and the surface deposit temperature. The growth of the 
accreted ice is assumed to occur in a direction which is perpendicular to the 
underlying airfoil surface. The new airfoil surface which is calculated in this way 
allows us to return to the first step, that is to calculate the new flowfield about the 
iced airfoil, and to accrete another layer of ice in a time-dependent fashion. 

An effort has been made to optimize the above procedure by varying a number 
of built-in and external (input) options and tolerances so as to achieve the greatest 
‘computing economy for a given level of accuracy in the accretion profile simulation. 
Up to five droplet size categories may be used to simulate a natural droplet size 
spectrum. The collision efficiency curve may be smoothed by a variable length Boxcar 
filter to better approximate the edge effects of a natural droplet distribution. 

The results of a series of model simulations have been compared with the 
experimental and theoretical results of other researchers. Agreement of the collision 
efficiency curves with other work has been very good. Model simulations of 
accretion shapes observed in wind tunnel and /n-s/tu experiments have shown less 
agreement however. Unfortunately, the difficulty of measuring experimental icing 
conditions accurately, and the limited number of experimental results available, preclude 
a complete verification of the methods employed in the model, and make it difficult to 
discern the precise reasons for the lack of agreement. 

Two applications of the model have been presented The first involves 
predicting the changes in ice accretion which will occur if modifications are made to 
the airfoil shape. Such modifications could be made to improve the aerodynamic 
properties of the airfoil, but could conceivably have 2 detrimental effect upon the 
airfoils icing characteristics. The second application has been a limited verification of 
an airfoil scaling theory through the comparison of simulations of icing on full and 


one-fourth scale airfoils. 
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6.2 Conclusions 


Two major sets of conclusions may be drawn from the present work. The 


first set deals with the effectiveness of the methods employed here as compared to 


those used by others in previous theoretical icing simulations. The second set is 


concerned with the results of the simulations, and their comparison with other 


experimental and theoretical results. 


6.2.1 The simulation techniques. 


I 


The vorticity substitution method of Kennedy and Marsden (1976), which was 
used in the dissertation to model the potential flow about complex airfoil 
profiles, provided accurate results when compared with the exact analytical 
flowfield about the cylinder and the Joukowski airfoil. 

The history term in the equations of droplet motion should be included if the 
goal of computer simulations is to achieve high accuracy. This is especially 
important under those conditions where the total collision efficiency is low, that 
is, when the droplets undergo rapid acceleration and their trajectories are highly 
curved. 

The effects upon the ice accretion of a natural distribution of droplet sizes may 
be approximated by using either a set of droplet size categories which lead to 
expensive Computations, or by a monodisperse distribution of droplets all having 
the mass median diameter of the natural distribution. If the latter method is 
adopted, then the filtering of the resulting collision efficiency curve by a variable 
length Boxcar filter improves the realism of the simulation near the limits of 
droplet impingement. That is, the effects of the impingement by very large 
droplets are approximated with only a small error in the total accreted area, and 
with a greatly improved correspondence to the natural accretion profile near the 
edge. The costs of simulating by this technique are much less than those 
associated with the multi-category approach. 

The Runge-Kutta-Fehlberg algorithm has proven to be the most cost efficient 
of the ODE integration techniques which we have used. The nature of the 


calculations of the droplet trajectories implies that large changes (over several 
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orders of magnitude) are required in the time step size to maintain a constant 
local truncation error. 

Of the techniques used to interpolate the yo vs. 2 curve (or alternately the 8 
curve) the one with the greatest accuracy over the largest number of trials has 
been the quintic Hermite spline fitted to the yo vs. 2 curve. It provides a 
smooth 8 curve when differentiated, and yet retains the important quality that 
the area under the curve equals the total collision efficiency c It must be 
used with care however in cases where the slope of the 8 curve changes 
abruptly. In these cases this interpolator may create undesirable oscillations in 
the 8 curve. 

The curvature of the underlying surface can be an important factor in calculating 
the thickness of a layer of accretion, especially when the radius of curvature is 


small. This factor should be included in all thickness calculations. 


6.2.2 The comparisons with other results. 


1. 


The methods used in developing the program appear to be based on reasonable 
assumptions judging from the agreement which has been achieved with previous 
theoretical and experimental results. In general, the agreement between the 
present results and others is best for the 8 curves. The comparisons with 
experimentally observed accretion profiles show greater disparity; however, even 
here the general appearance of the accretion is predicted reasonably well. 

The comparisons which have been drawn between single-layer and multi-layer 
(time-dependent) simulations show that for the cases attempted, the B curve 
does not change substantially with time. However, consideraole changes in the 
shape of the final accreted layer (in the multi-layer vs. the single layer cases) are 
the result of changes in the curvature of the accreted surface as accretion 
proceeds. The net result of time dependent modelling is to elongate the profile 
- that is, to increase the thickness of the accretion at the airfoil nose, and to 
decrease the thickness further back. 

Comparisons between experimentally observed accretion profiles and the profiles 


predicted by the single and multi-layer approaches of this work verify that for all 
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cases except the cylinder, the agreement for profile shapes and cross-sectional 
areas is greater when the time-dependent method is used. For the cylinders, the 
greatest disparity between the observed and predicted accretion profiles occurs 
midway back along the surface where rime feathers appear to form. Since the 
present model cannot simulate rime feathers, this deficiency may explain the lack 
of agreement in this case. 

The variable ice density formula proposed by Macklin (1962), when incorporated 
into the present model, did not improve the agreement with the experimentally 
observed results. The use, in Macklin's formula, of the total droplet collision 
velocity, and also the component of this velocity which is normal to the airfoil 
surface at the point of collision led to equally poor agreement. 

We have verified the airfoil scaling theory summarized by Armand et a/. (1978) 
over a very limited range of testing conditions. The collision efficiency curves 
of the one-quarter scale model match very well with those of the full-scale 
simulation. 

The shape and the cross-sectional area of the ice accreted by the NPL 9615 and 
NACA 0012 airfoils under the same conditions are very similar. Thus if the NPL 
airfoil has better aerodynamic characteristics, this comparison persuades us to 


recommend the use of of the more advanced profile. 


6.3 Recommendations 


In the course of developing the ice accretion model which has been described 


within this dissertation, and during the comparisons which have been made with previ- 


ous theoretical and experimental icing results, several recommendations have been 


formulated to either improve upon the present model, or to increase our confidence in 


the experimental results with which the model may be compared. 


te 


At present, the accretion thickness is calculated only at surface segment 
endpoints (SSE's). For most airfoils this causes no problem because we may 
specify the number and location of these points on the original surface of the 
airfoil. However, for those airfoils whose profile is specified by a set of 


discrete coordinates and for which only a limited number of (x,y) coordinates are 
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provided (TYPE = 4 or TYPE = 5), there may be a lack of points in the nose 
region (especially if it has a small radius of curvature). Furthermore, the points 
may be poorly placed, resulting in a poor interpolation of the surface by the 
cubic spline method. In such cases, a change should be made to the program to 
enable it to create intermediate SSE's by interpolation. 

Careful scrutiny of the droplet trajectory detailed output (for an example, see 
Appendix |) shows that the RKF4 automatic step-size selection algorithm 
described in Appendix B typically encounters a situation once for each trajectory 
calculated, where it is unable to find a suitable step size with which to continue. 
This problem requires more investigation. Presently such problem areas are 
stepped-over and the integration continues. It may be that the tolerance which 
detects the problem has been set too fine, or that a minor adjustment is required 
in the algorithm which chooses the step-size. 

When local collision efficiency values are calculated and the Hermite quintic spline 
is used to interpolate a 8 curve, there are occasions when oscillations occur in 
the curve near points which are unevenly spaced, or where the slope of the 
curve must change rapidly. At present, such situations are detected by the pro- 
gram and the quintic Hermite spline is replaced by cubic Hermite polynomical 
segments. Further research into spline interpolation might result in a better 
solution to this problem. 

Related to the problem in 3 is the need to specify the 8 curve very accurately 
in regions where the radius of curvature of the airfoil is small. Such 
sharp—nosed airfoils affect the thickness of the accretion significantly when the 
curvature effect is incorporated into the thickness calculations. If the peak of 
the 8 curve is slightly shifted from its proper location, a significant error will 
result in the accretion profile. Therefore, a special effort must be made to 
ensure that the collision efficiency curve is particularly accurate in regions where 
the value of 8 is changing rapidly along the airfoil surface. 

The variable-length Boxcar filter used to smooth the curve was incorported late 
in the model develoment and thus the algorithm employed to effect the variation 


of filter length may not be optimally adjusted. This aspect requires further 
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investigation. 

We have assumed in this model, that all accretion forms in a direction normal to 
the underlying accretion (or airfoil) surface. This assumption has greater validity 
for single droplet diameter thick layers, except near the limits of impingement. 
Variation of the growth direction from that used here to that from which the 
droplets have arrived might result in better agreement with experimental results. 
A rationale for the variation of the growth direction is required. 

The variation of the accretion density according to the empirically derived 
formula of Macklin (1962) did not improve the agreement with experimental re- 
sults. Further, experimental investigation of the accretion density variation is re- 
quired, particularly for the cases with rime feather growth. 

When the multi-layer (time-dependent) approach was used to model an accretion 
with a total thickness of over 7% of the chord length, a problem was encoun- 
tered in maintaining a reasonable computing efficiency. It may be related tc our 
lack of smoothing of the accreted airfoil profile and the resulting amplification of 
small perturbations on the airfoil surface, or to the creation of too many control 
elements. Further work should reveal the cause of this problem. 

This dissertation has been restricted in scope to the prediction of the features of 
rime ice. The applicability of the mode! would be enhanced if the thermodynamic 
processes which occur during the accretion process could be incorporated. This 
would allow the program to handle accretion at warmer temperatures, and should 
lead to better agreement with observed accretion when runback of liquid water 
occurs on the airfoil surface. Further it would allow simulation of the effect of 
including heat sources within the airfoil for the purpose of thermal de-icing. 
There is a distinct lack of experimental results with which we may make 
comparisons to verify the present model. Further, of the results which do exist, 
we know of none where the liquid water content and cloud droplet distribution 
were measured by state-of-the-art techniques. The methods used to display or 
measure the accretion profiles are also relatively crude. Improvements in these 
areas would greatly enhance the opportunity for refining the present model so as 


to improve its predictive capabilities regarding accretion profiles. 
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Only one set of experiments was performed to test the scaling theory 
summarized by Armand et a/. (1978). In order to fully test this theory, other 
experiments should be carried out within the full range of conditions for which 
the theory applies. 

The present program would require very little modification to allow a change in 
the angle of attack or air velocity after each accretion layer. Such a change 
would allow a better simulation of the cyclic varition of a helicopter rotor blade 
during forward flight. 

The present model would be of greater benefit to airfoil design engineers if it 
incorporated an analysis of the aerodynamic effects of the accreted ice. The lift 
coefficient that it presently provides is based upon potential flow theory. This 


should be enhanced by the addition of an analysis of the airfoil drag. 
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TABLE 1. Parameters definin 


mean line designation. 


Mean line 
designation 
Z10 
220 
230 


240 


Non-dimensional 
position of 


camber Cp 


0.05 


Parameter 


O29 


C2391 


Parameter 


“k 


361.4 
51.64 


15 95y/ 
6.643 


3.320 


The values of c, and c, have been calculated to give the 
desired position of camber, and a design lift coefficient 


of 02.3% 
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g the mean line of a NACA five digit airfoil for a given 
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TABLE 2. Derivation of non-dimensional quantities. 


Derivation from 


ND bol Cod i 
eo lig o-ibiin MEARNS Standard variables 
x XDS Distance X/C 
y YDS Y/C 
u, UAS Velocity of air U_/U,, 
Vv VAS vy /U 
a a 
Ug VDS Velocity of droplet U 4/Y 
Vg VDS Vf, 
t TS Time TU/C 
At DTS Time step ATU /C 
ry RDS Droplet radius R,/e 
= , ; 7S iy He 
g GS Gravitational GC/US 
acceleration 
v5 NUS Kinematic viscosity u /(p CU) ay, 
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TABLE 3. The dependence of the accuracy of the flow field calculation upon the 
number and location of the contro! element endpoints (CEE’s). 


NEF! AS? 12 20 16 1] 6 
NEB2 AS3 28 eZ 15 10 14 
x y Vv Percentage error 
-10 -] 0799981" =0,001 02002 ~“O*00T OF001 01001 
=5 -0.5 0.99945 0.0 02007) O80 0.001 0.001 
-] -0.] 0299298 0.001. ‘0.002  0:002) °0..004° (0.006 
-0.01 0.001 0.83615 -0.209 -0.006 -0.081 -0.144 -0.538 


0.005 0.015 1.56856 0.385 0.007 -1.204 -1.676 M767 
0.0] 0.0185 164639" -=2 331 0.201 -1.134 -1.467 -2.601 
0.12553 -0.05328 0.97686 -0.308 -0.236 -0.277 0.504 -0.960 
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INo. of CEE's on front third of airfoil (per surface) 
*No. of CEE's on remainder of airfoil (per surface) 


3Analytical solution 
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_ TABLE 4. Comparing the accuracy of the local collision efficiency and impact loca- 
tion calculations against the relative computing cost as the number and position of 


CEE’s and the truncation error tolerance are varied. 
aeaeaooal‘’eaasS$=$@mmaSBaaSBaO 


1 2 3 u 5 6 We 8 9 
Row EPS NEF! NEB2 NIF3 @(%) Error Q Error Relative 
(%) (2) Cost 
oy ce sel tcl Sl. RO a eee 2 
mix 10 * yay Phe Osa 35 0 0.00981 0 1.00 


at x 10° 62) Fe 6 FT 46 29 0.00747 -24 Te 
fe tox 10 * See eT 8 38 7 0.00886 -10 8.2 
fe ek x: 1:05) 1 Qherkveb Zig cos} criet OO096LY wae 2 9.6 
See hhx10-* 13 — Zener 1065 9 9.5 
meiexioe «6h Ck 35 0 0.00961 +2h¢° Wath 
oS anes i mina 6: aa gio = 3) = OLU095) gem mG .0 
pme 3 x. 10," 12 9 5 33. -6 0.00990 hey 


puesto xP0 ° 12 9 o 34 as 0.00979 0 1ne9 


Pome lexs 105" 12 10% j295 35 0 0.00958 -2 11.0 
nm 1x lo # 11 1] 5 37 3 0.00930 -5 10.4 
3x 10 * 1] 1 5 35 0 0.00942 -4 9.3 
ibe 6 x10 * 11 in 5 35 0 0.00927 -6 9.0 


14 3x 10+ bz 10 5 34 =o 0.00970 =| Oia 


ix 10 7 1] 10-6 35 0 0.00944 -4 1002 


NEF: No. of CEE's on front third of airfoil (per surface) 
NEB: No. of CEE's on remainder of airfoil (per surface) 


NIF: No. of SSE's between adjacent CEE's on front third of airfoil 


4 e . 
Denotes analytical solution to potential flow about a Joukowski air- 


foil at 4.6° attack angle. 
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TABLE 5. Comparing the accuracy of the local collision efficiency and impact loca- 
tion calculations against the relative computing cost and final step size as a function of 
the type of differential equation solver used. 


1 2 3 ~ 5 6 is 8 
Row Type ers B Error Q Error Final At Relative 
# (%) (%) (%) Cost 
1 RKF4} hh 0 0.00649 0 0.0060 1.00 
2 RKF4 46 4 0.00647 -0.3 0.0059 11.9 
3 PC4 46 4 0.00662 Z 0.0150 68.4 


1Denotes analytical solution to potential flow about a Joukowski airfoil. 
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eee 9. Intercomparisons of the characteristics of droplet impingement upon 
cylinders. 


Case EQN CDS Re, kK} Ke go} 9? a peent Bit 
#t (%) (%) 
A 0 2 14.08 “0.196 0.098: 1000 2000 0.9% 0.060) 955 
c 0 - De eat Ge rae eid 
9 | 1 0.8 0.068 6 

20 l 2 0.5 0.052 9 
2] 2 1 2780 O.04b. 12g 
A 0 2WetSOn0li32th 16.2 1000). 2000-9 6320) .07728 69362 
C 0 1 65570 10.738 ole 
22 | / 8803-8 00/725 t93.6 
23 1 2 CP U6, 22 aa 
24 2 | 9 ic teen eo |S i 


lValue according to definition of Langmuir and Blodgett 
*Value according to present definition 

A: Results of Langmuir and Blodgett (1946) 

C: Results of McComber and Touzot (1981) 
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TABLE 10. Intercomparisons of the characteristics of droplet impingement on a 
Joukowski airfoil of 36.5% thickness. 


Case # EQN Re. K 6 E_(%) C 8 (%) 
D 0 16 0.3214 796.5 . 41.0 0.184 68.0 
2 l 39.9 0.186 64.9 
26 2 41.3% 0.190 65.8 


D: Results of Brun and Voyt (1957) 


TABLE 11. Intercomparisons of the characteristics of droplet impingement on a 
NACA 0012 airfoil. 


- EQN Re. K b Ef dey ath B R 

E Op 202, 290r 238 21..718 102 32 355~%0.039 mOn110 77.5. -0::006 
2] I 34.5 0.018 -0.147 70.2 -0.006 
28 Zz 35.6 0.018 -0.153 71.1 -0.006 


E: Results of Werner (1973) 


TABLE 12. Intercomparisons of the characteristics of droplet impingement on a 
NACA 0015 airfoil. 


a EQN Re, K 6 E. bay ea 8 | om 
(%) (%) 

F 0 55. O85 ul. 18x 10° 47.3 -0.020  -O8284i) 73-8 -0.015 

29 1 49.9 0.021 -0.260 75.5 -0.011 

F O= 109: 60.4071) 2.920% 110° 0.018 -0.285 76.4 -0.019 

30 1 58.2 0.024 =0.3218 78/8 --0.011 


SS 
F: Results of Bragg (1981) 
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TABLE 15. Intercomparisons of the characteristics of droplet impingement on a 
NACA 65-212 airfoil at 4° angle of attack. 


Case # Re. K > Ef BY dey der 
(%) (%) 
¢ 86.4 0.0374 2.00 x 10° 9.2 52.0 0.02 =0¢13 
39 9.6 49.9 0.005 -0.060 
G 96.0 OF Is7 3160 2e10' se 309 72.0 0.109 -0.460 
F 78.0 O-017, § 0.208 
40 43.9 82.0 OxOLS t 0.279 


F: Results of Bragg et al. (1981) 
G: Results of Gelder et al. (1956) 


TABLE 16. Intercomparisons of the characteristics of droplet impingement on a 
NACA 64-215 Hicks modified airfoil at 0.7° angle of attack. 


Bese fe Re. K ¢ E 8 2 mk 


Fl 11B690 0.0436- 2.976 x 10> 5.3 
ae a2 
4] 8.2 26.9 0.032 -0.018 


eS SSS SS SO SSS0080NTws awe 


Fl: Experimental results of Bragg et al. (1981) 
F2: Theoretical results of Bragg et al (1981) 
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TABLE 20. Intercomparisons of the characteristics of droplet impingement on a 
Joukowski 0012 airfoil and on a NACA 0012 airfoil at a 4° sale of eal 


i EE ee ee ee 
Case # Type B E Q Q A 


m GU GL $1? 
U2 2 69.9 36.1 03071 -0.141 0.002164 
27 0 ree 34.5 0.018 -0.147 0.002073 


TABLE 21. Intercomparisons of the characteristics of droplet impingement on a 
Joukowski 0015 airfoil at full and one-quarter scale. . 
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FIG. 2. Recommended atmospheric icing criteria for stratiform clouds (from 
Werner, 1975). 
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FIG. 3. Recommended atmospheric icing criteria for cumuliform clouds (from 
Werner, 1975). 
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FIG 4. A comparison of drop size mass distribution for a natural Minnesota cloud 
Seen line), the spray from HISS (symbols), and from the Langmuir "D" distribution 
Solid line). 


131 


10 


Cae a d moving with the droplet, 
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which is used is calculate air velocities and accelerations. The grid length is equal to 
the radius of the droplet. 
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FIG. 6. Notation used to calculate influence coefficients (after Kennedy & Marsden, 


1976). 
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FIG 20. The predicted ice accretion for Case 1 of Table 6 when the ND accretion 
parameter w =0.050, and surface curvature is incorporated in calculating the ND 
accretion thickness m (ATHICK=1). K=0.249 and Re,, =221.9 
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FIG. 22. The predicted ice accretion for Case 1 of Table 7 (in solid) compared to 
that for a monodisperse droplet distribution with all droplets having the mass median 
diameter of the distribution used in Case 1. 
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dashed & curve corresponding to the 5 category simulation of Case 1 of Table 7. 
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FIG. 26. The accretion profiles of Case 10 (solid line) and Case 1 (dashed line). 
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FIG. 34. The collision efficiency curve of Case 29 as a solid line. The dashed line 
corresponds to the results of Bragg (1981). Re. =55 and K=0.257 
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FIG. 35. As for Fig. 34, but with Re, =109 and K=0.407 (Case 30). 
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FIG. 36. The solid lines represent the collision efficiency curves for Case 31. The 
droplet diameters are 25.5 and 13.2 um. The non-dimensional parameters for the 
MMD droplet (18.6 um) are Re. =96.2 and K=0.257. The dashed line is the 
All result of Gelder et a/. (1956). 
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FIG. 37. The solid lines represent the collision efficiency curves for Case 32. All 
parameters remain the same as in Fig. 36, except that a variable length filter has been 
applied to smooth the mean curve. The dashed line gives the comparable result from 
Gelder et a/. (1956). 
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FIG. 38. The solid lines represent the collision efficiency curves for Case 33. The 


heavier line without symbols is once again the smoothed 8 curve. The dashed line is 
from Gelder et a/. (1956). 
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FIG. 41. As in Fig. 39 except for Case 37. 
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FIG. 42. As in Fig. 39 except for Case 38. 
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FIG. 43. The collision efficiency curves of Cases F (short dashes), G (long dashes), 
and 40 (solid line). Re, =96.2 K=0.257 
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FIG. 44. The trajectories of droplets in a flow about a NACA 65 
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FIG. 46. The solid line represents the collision efficiency curve for Case 41. The 
dashed line is from the results of Bragg et a/. (1981). 
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FIG. 47. The profile of an accreted layer on a cylinder. The solid line corresponas 
to Case 43 where surface curvature has been taken into account The long dashed 
line shows Case 42 with the thickness calculated as if the substrate were locally flat. 
The short dashed line displays the experimental results of Lozowski et a/. (1979). 
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FIG. 48. The profile of an accreted layer on a cylinder. The solid line with symbols 
is for Case 44. The solid symbol-less line shows the profile of the experimental re- 
sults of Lozowski et a/. (1979). The dashed line is their theoretical prediction for the 
same conditions. Re, =49.0 K=1.624 w=0.157 
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FIG. 49. The collision efficiency curves of Case 46 are displayed as solid lines with 
symbols (droplet diameters_are 27.0 and 14.4 um for the inner curve). The heavy 
solid line is the smoothed 8 curve. 
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FIG. 50. Accretion on a cylinder. The accretion profile of Case 45 is shown as a 
ee line; the profile of Case 46 is dashed. LWC=0.8 g m? Re. =49.0 K=1.624 
w =0.314 
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FIG. 51. The profile of an accreted layer on a cylinder. The solid line with symbols 
is for Case 46. The solid symbol-less line shows the profile of the experimental re—- 
sults of Lozowski et a/.. The dashed line is their theoretical prediction for the same 
conditions. LWC=0.8 g m? Re, =49.0 K=1.624 w=0.314 
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FIG. 52. The collision efficiency curves of Case 48. The heavy solid line without 
symbols is the filtered 8 curve for this case. Re, =49.0 K=1.624 
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FIG. 53. As for Fig. 50, except for Cases 47 and 48 respectively. 
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FIG. 54. The profiles of accreted layers on a cylinder. The solid line with symbols 
is for Case 48. The line of long dashes corresponds to Case 46 for two categories 
of dropiet sizes. The solid symbol-less line is the experimental result of Lozowski 
et a/. (1979). The short dashed line is their corresponding theoretical curve. 
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represents Case 49. The solid symbol-less line is for the experimental results of 
Lozowski et a/. (1979). The dashed line is their theoretical prediction for the same 
conditions. 
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FIG. 57. As in Fig. 55, but for Case 51. 
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FIG. 58. The collision efficiency curves for Case 52. The solid lines represent: 
layer 3 — unfiltered (with symbols) and filtered (without symbols). The two dashed 
lines are the unfiltered and filtered curves for layer 1. 
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FIG. 59. The profiles of accreted layers on a cylinder. The solid lines with symbols 
display the profiles of the three layers of Case 52. The solid symbol-less line is the 
experimental result, and the short dashed line, the theoretical result of Lozowski ef a/. 
(1979) for the same conditions. The long dashed line corresponds to Case 48, that is, 
for a single layer. Re, =49.0 K=1.624 w=0.1047 
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FIG. 60. The collision efficiency curves for layer 1 of Case 53. The outer and 
inner solid lines with symbols are the 8 curves for the 27.0 and 14.4 um droplets 
respectively. The solid symbol-iess line is the unsmoothed 8 curve. Re, =49.0 
K=1.624 w =0.1047. 
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FIG. 61. As for Fig. 60, but for layer 2. 
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FIG. 62. As for Fig. 60, but for layer 3. 
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FIG. 63. The profiles of the three layers of accretion on a cylinder in Case 53. 
Re, =49.0 K=1.624 w=0.1047 
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FIG. 64. The profile of an accreted layer on a NACA 0015 airfoil at O° angle of 
attack. The solid curve with symbols represents the results of Case 54. The dashed 
line shows the experimental results of Stallabrass & Lozowski (1978). Re, =98.7 
K=0.387 w=0.0356 
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The solid lines represent: 


FIG. isi ici ves for Case 55. 
IG. 65. The collision efficiency cur The two dashed 


layer 1 - unfiltered (with symbols) and filtered (without symbols). 
lines are the unfiltered and filtered curves for layer 3. 


"0068 
3% 


lo-aigee “D Ja lini 2700 ADAM Be a) ‘ove Colma me to 6 
dete aT 24 aces 13 rl grate phe 1 ae ritiw ovo 
"S38= 85 . @VG!) tewesel 4 ashenes Waren 00> 


ees 
Ss 
_ 
‘Beriane Gwe 


167 


-0-08 0.00 0.08 0.16 0.24 0.32 
Ae 


FIG. 66. As in Fig. 64, except for the three layer example of Case 55. Re, =98.7 
K=0.387 w=0.0119 
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FIG. 67. The profile of an accreted layer on a NACA 0015 airfoil at 8° angle of 
attack. The Bate cuve with symbois represents the results of Case 56. The dashed 
line shows the experimental results of Staliabrass & Lozowski (1978). Re ,. =98.0 
K=0.387 w=0.0365 
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FIG. 68. As in Fig. 65, but for Case 57 (angle of attack is 8°). 
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FIG. 68. As in Fig. 67 except for the three layer example of Case 57. 
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FIG. 70. The trajectories of droplets in a flow about a NACA 0012 airfoil at a 5.7° 
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FIG. 72. The collision efficiency curves for Cases 58 and 59. The solid lines rep- 
resent Case 58 or equivalently layer 1 of Case 59 unfiltered (with symbols) and 
filtered (without symbols). The two dashed lines are the unfiltered and filtered curves 
for laver 3 of Case 59. 
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FIG. 73. As in Fig. 71 except for the three layer example of Case 59. Re, =144 
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FIG. 76. The solid lines represent the profile of an accreted layer on a NPL 9615 
airfoil at 5.7° angle of attack (Case 60). The dashed lines are for a NACA 0012 airfoil 
under the same conditions (Case 58). The two airfoils are similar except that the NPL 
9615 has a drooped-nose extension to the NACA 0012. The NPL airfoils chord is 
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FIG. 79. The functional dependence of the drag coefficient C upon the Reynolds 
number Reg. The short dashed line is the log-log least squares fit for 25.5 um 
droplets in Case 32: it has a slope of —0.66. The long dashed line is the fit for 13.2 
um droplets in Case 32; it has a slope of —0.71. 
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APPENDIX A. Finding the eigenvalues of the Jacobian of the system of droplet 


trajectory equations. 


Section 2.3.4.2 has stated the need for developing an indicator of the stability 
of the ordinary differential equation solver used to determine the droplet trajectories. 
This indicator is based upon the complex eigenvalues of the Jacobian 8f/3x. This 
appendix will outline the means of finding those eigenvalues. 

If we ignore the gravity term, and the history term in (2.66), the vector equa- 


tions of motion become: 


dV 3C 


fe) 
d Dea ee ee 
—=- = - Nal eee Veo Samy) (A. 1) 
d he (2e, PiG/) | d Hee a 
and 
o*d = (A.2) 
Ty d 


If these equations are broken into their components and non-dimensionalized, the 


resulting set of first-order equations is: 


dx 
ae a (A.3) 
ae Ls fy (u,) 
du 
d — se 2 = f Bare Be A (A.4)} 
eae a bd) oda! 2 Xgtgr%ar%d 
dy 
OB (A5) 
dt Fy (vq) 
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dv 
d ea. : = A 
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then algebraic manipulation will yield: 
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(A.8) 


(A.9) 


(A. 10) 


(A. 1 1) 


(A. 12) 
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of 
au, Bh gee aRes, Buy, 13°71 du, Dv1 ” du, p93 a 


and similarly for 3of,/dy d through 9df,/dv qd When these values are inserted into 
(A.18) and the determinant calculated, the complex eigenvalues of the system of equa- 
tions will have been determined. These eigenvalues shall be complex if the solution to 
the system of ordinary differential equations contains both an oscillatory and a 
decaying or growing part. The eigenvalues cannot be stated here precisely, because 


as was mentioned in Section 2.3.4.2, the derivatives denoted z, through z, must be 


i) 
determined numerically as the integration proceeds. 
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APPENDIX B. A modified Runge-Kutta-Fehlberg (RKF4) algorithm. 


The standard RKF4 algorithm may be found in several textbooks (see for ex- 
ample page 254 of Burden et a/., 1978). If we have a system of first order equa- 
tions to solve, we must apply each section of the algorithm to each equation before 
moving on to the next section. Briefly the algorithm may be summarized as follows. 

Beginning at time t., we wish to solve for xy Ug y yrand V4 at Coed 


Using (A.3) through (A.6), we find the values of 


k, = SURE RC (B. 1) 
n, = rig te dg de ala (B.4) 
k, = At f(t. + Saran “* SANE + setae + Ba ed + n,/4) (B.5) 
por At f(t, + At ./2,x4 = 8127 ity HE2n, ys 544 /2565n2. ee) (B.24) 


These values may then be combined to give fourth and fifth order estimates TOE qd’ 


x x u dso on tov,,.,,, If we 
Ug Ya and V4, denoted: Xa (itt) %a (ier) (41) d(i+1) 


set 


x, = (x ay )/At. (B.25) 
ey ote oe 


and similarly for u., y and v_, then the local truncation error at time t. may be 
ce j oat | 


estimated as: 


Se maxt|x.|,lu;]oly;1ly; 2 (B.26) 
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The input parameter EPS sets the local error tolerance e¢. Thus, ife. < €, we accept 
aA “~ | 
the values Peet ;, ae i 
ery a Ge | Yara a (ier) and prepare for the next time step. If 
e,>€, then we repeat the integration at t. with a smaller time step. 
The choice of an appropriate time step for the RKF4 algorithm has proven to 
be somewhat problematical. Burden et a/. suggest setting the new time step 


according to the formula: 


oe stea 8 (B.27) 

where 
x; = [e/maxt|x],Jul,lyl,|v[}1°-25 (8.28) 

ana 
k = (0.5)°-25 (B.29) 


Equation (B.27) is also used when a step is to be repeated. In this case Ati is re- 
placed by At,. Experience with this formulation led to serious reservations about its 
applicability to the system of equations we were attempting to solve. Following the 
lead of Burden et a/. (1978), we have found it necessary to "eliminate large changes in 
step size to avoid spending too much time with very small step sizes in regions with 
irregularities in derivatives of [ x qd’ Ya Ug: and v q ], and to avoid spending too little 
time [in a region] with large step sizes, which may result in skipping sensitive regions 
nearby.” Another problem we encountered with (B.27) was an oscillation (“chattering”) 
in the size of the time step about a gradually varying average value. In order to 
prevent these two problems from occurring, we have replaced (B.27) with a more 
complex set of equations. The rationale for this set is as follows. Limits placed upon 
the rate at which the time step can grow or shrink will tend to prevent the problem 
discussed by Burden et a/. Eliminating the “chattering” is more difficult The most ef- 
fective procedure we have devised to date sets limits upon the value of X; depend- 
ing upon its value at the two previous time steps X;-4, and Xj_9. Thus for exam- 


ple, if the two previous values of X were less than 1, then the new time step will 


be specified by (B.27) provided that 0.2<X;<1. If X; ¢0.2, then we replace it with 
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0.2 in (B.27). This will ensure that time steps do not become too small, too rapidly. 
lf on the other hand (B.28) indicates that a value greater than 1 is required, the follow- 


ing equation is used for finding the new time step: 


ae kat. [ (x, - 1)/10 + 1] (B.30) 


This dampens the rapid growth of the time step immediately after two time steps 
which have decreased in size. The complete set of equations for finding the new 


time step is: For ae 1, and Ap > 2 We 


if X:.7< 1, Ati, = kx, At, (B.3 1) 
. iz r. (B.32) 
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For X;_, < 1, and x5 Te 


foe <- OL2 At, = 0.2 k At, (B.40) 
41 7 Ky AteX, (B.41) 


Hex NAL es kate ( (x = Lyte 1)) (B.42) 


When e,>€, i+ 1 is replaced by i in (B.23) through (B.34), and the step is re-integrated 
(GLERK5[86, 1 1 1). 

It was discovered during the testing of this modified algorithm, that 
occasionally the automatic step-size routine would hang up at one point in time, unable 
to find an appropriate step size to continue. This seemed to occur when the air 
velocity components changed very rapidly. To prevent this problem from terminating 
execution, the following two modifcations were added. First, the step size was not 
allowed to decrease below Ati ay =5x10-4. This limit was determined on the basis of 
trial and error as a reasonable compromise between efficiency and accuracy. Second, 


if e,>€, and yet 


min {|x,|,u,lsly,}o[v.13 
a Nea (8.43) 
FES oye) Seer eli [a 
then rather than re-integrating, we set 
cares (At, + At. ,)/2 (B.44) 


where At, 4, 0" the RH.S. of (B.44) is taken from (B.31) to (B42). We then return to 
the use of (B.31) through (B.42) if possible. If (B44) must be used to step over a 
region of difficulty, a "*" is placed in the first column of the output (see Appendix |) 
(GLERK5[ 112,128). 


In one last effort to improve the efficiency of the above procedures, it was 
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prevented excessive re-evaluation during a continual reduction in step size while 
maintaining a constant local truncation error estimate (GLERK5[129]). Thus a value of 


At is determined from (B.31) through (B.42). If no difficulty is encountered (that 


i+] 
is F >e) then this value is substituted into the RHS of (B.45) and a final value of 


Ati. is obtained. 
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APPENDIX C. Integrating the history term. 


Sections 2.3.4.2 and 2.3.5 outlined the difficulty in integrating the complete 
integro—differential equations which describe the droplet trajectories. We have 
developed a technique which may yield a somewhat less accurate value for the 
contribution of the history term, but which is not as difficult to implement as the 
classical methods of solving such problems. We justify this approximation on the 
basis that the history term becomes a significant factor in the droplet acceleration only 
just prior to a droplet airfoil collision, or around the point of closest approach. 
Except in these circumsances, the history term has only a minor effect upon the 
solution to the system in (2.69). 

The history term in (2.69) is of the form: 

. dv dt 
const. | i: ee (Gal) 
: dr vt -7T 
We have changed the lower limit of integration from -« to O because before t=O, 
the droplet is assumed to be travelling in a constant uniform airflow where there are 
no accelerations. 

Experiments involving the numerical evaluation of the history term integral, using 
various Newton-Cotes formulae showed that such formulae provided accurate 
estimates of the integral for all but the portion of the interval where T approached t. 
In this interval, substantial errors could result. 

As a result of the above discovery, a semi-analytical technique for finding the 
solution was adopted. It was noted that if the accelerative part of the kernel, that is 
dv a! dt could be interpolated by a Lagrange polynomial of degree less than or equal 


to three, then the value of the history term could be approximated from a combination 


of the following formulae: 
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f 2dr 2 | a 5 
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The formulae necessary for obtaining the coefficients of the Lagrange polynomial are 
given by Burden et a/. (1978), for example. 


The value of the acceleration at the time step t. ms is obtained by a 


1 
two-part iterative process. First, for some algorithms (RK4, RKF4) values of the 
history term are required for times intermediate between t; and t, +1 These are 
obtained by extrapolation using a third order Lagrange polynomial fitted to the history 
term values for the time steps te oy f-2,1-3,1-4 (except for the first few time 
steps, when a lower order Lagrange polynomial is used). Then, extrapolation from the 
previously fitted polynomial is used to predict the value of the history term at Coa 
This allows the calculation of the accelerations at t, uf With an estimate of 


av ,/et at ti4 known, we may interpolate ov ,/at between t=0 tot= tia If i 


1 
is odd, this is accomplished by a sequence of second degree Lagrange polynomials 
over successive triplets of time steps. If i is even, the procedure is the same, but 
with 2 third degree Lagrange polynomial used over the last four points. In this way 
we retain the greatest interpolation accuracy in the time steps just past, that is, those 


which contribute the most to the history term. 
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APPENDIX D. Integrating ordinary differential equations by a Hermite 


extrapolation technique. 


Section 2.3.7 pointed out the problem that occurs when a droplet approaches 
the airfoil surface and it becomes necessary to determine whether or not a collision 
has actually occurred, and if so at what point. In that section it was stated that the 
higher order integrations employed in this thesis all used air velocity values within the 
time interval (t.,t. 
: =p bie 


t +1° Careful scrutiny of these integrators reveals: 


1. The RK4 algorithm must calculate the air velocity at points approximately 


] to determine the position and velocity of the droplet at 


midway between (x40¥q) and (x as well as near (x in 


a°Ya) p41’ de%a iat 


order to determine the value of (x45¥4) at tioy- 


2. The PC4 algorithm due to Hamming (1973) uses the modified estimate from the 
predictor to calculate the acceleration at Cay for use in the corrector. This 
acceleration is based upon knowledge of the air velocity near (x, Yq) eT 

3. The RKF4 algorithm calculates the air velocity at points approximately 0.25, 
0.375, 0.5 and 0.823 of the distance between (x aq); and (x Yalan as 
well as near (x 10¥q) ray 

If any of the gridpoints used to find the air velocity (see Fig. 5) in the interval 

(t. tii! lie within the airfoil profile, the corresponding streamfunction value will 

be meaningless. This will lead to an incorrect value for the air velocity, and thus will 

adversely affect the accuracy of the droplet position and velocity at time t, +10 
The problem is resolved by extrapolating forward from the position and 
velocity of the droplet at t;, and tio instead of using values in the interval 


i, t ]. For an equation of the form of (2.77), the Hermite extrapolator may be 


Po i+] 
expressed as: 


x. = - kx, + 5x, , + Rete + 2x. ,) (D. 1) 
i in| i i iv] 


This formula has a lower order truncation error than do the other integrators 
(third-order vs. fourth-order for RK4, RKF4, and PC4) and so it is used only to test 
whether or not the collision has occurred by the time the droplet reaches its position 


If it has, Section 2.4.3 describes the methods used to find the collision 
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APPENDIX E. Finding the length of a portion of a cubic spline curve. 


The following set of solutions has been derived by Phillips (1980). Let us 


begin with the general cubic polynomial defining the spline segment between X and 


X1: 
= Pipetes 6° + 355° i 4 a8 (E.1) 
where 6 is given by 
6 = X= Xo (E.2) 
Then we have 
= 3a, 6° fe 2a,6 + a. (EsS) 


The length of a curve between X and X may be expressed as: 


X 
bio c= | V1 + (Y')2 ax (E.4) 


Xo 


or 


6 
LCS) Sra) tse) (38,8? + 20554 a,)* dé (E.5) 
1@) 


We must test now for the values of a, and a,. This will lead to three separate 
solutions: 


1. If ay=a,= 0, then 


Ni. OPP (E.6) 
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2. If a; = O but a,#0, then (E5) may be rewritten as: 


6 
Z (E.7) 
Lishpe=gy{ 1 + (2a,6 + a,)° dé 
oO 


The solution to the integral is given by: 
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ees) = { (2a,6 + a,)¥1 + (2a,6 a a,)? Seay tae a’ 
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a gn (2a, 6 + a,) + v1 + (2a, 6 + a,)*] - 2nla 
3. If a, #0, then let 


Wie=to3ia,| (6 + a,/3a,) 


= v3la,| (6 + a, /3a, ) 
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where 


A change of variable allows us to write (E.5) in the form: 


(E.8) 


: +71 + az ]}/4a, 


(E.9) 


(E. 10) 


Ed) 


(E12) 


Vv 
1 rl 
OK ms f/1 + (V2 +A)? dV (E.13) 


3] a, | Vo 
) Go) 3 
= [I(v = AY 
fat : 
where 
Ae (a, - a5 /3a,)sgn(a, ) 


The integral I(v) in (E14) is given by 


I(v) = in 71 + (v2 + A)? dV 
(e) 
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where 
Geary w2 yo 0.25 (E17) 
kK = ¥(1 = AG2)/2 (E. 18) 
and 
2 2 ee E19) 
T3764 


The functions F(t,k) and E(c¢,k) in (£16) are the incomplete elliptic integrals of 


the first and second kind respectively. If 

v = 1/G (E.20) 
then 

ly (E.2 1) 


which allows us to replace F(zt,k) and E(zc,k) in (E16) by K(k) and E(k), the 
complete elliptic integrals of the first and second kind respectively. If O<v<1/G, we 
may use (£.16) directly. If 1/G<v<«, then we replace F(cz,k) and E(z,k) in (6.16) 
by | 


(Geek) == 2Kik)* = Fin) =e, k) (E.22) 
and 
E(t,k) = 2E(k) - E(n - &,k) (E.23) 


In the present program, these elliptic integrals are evaluated using the subroutines 
DELI1, DELI2, DCEL1, and DCEL2 from the SSPLIB subroutine package provided by 
IBM. 
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APPENDIX F. Locating points on the interpolated airfoil surface. 


In Section 2.4.1 mention was made of the need for an iterative process to 
determine the ordinate value y of an interpolated point on the airfoil surface when 
the abscissa is given as x. If the rotated coordinate system is denoted by the 


subscript R, then the equations relating a point in the two coordinate systems are: 


x cos 30° + y sin 30° (F.1) 


x 
i] 


and 


y cos 30° - x sin 30° (F.2) 


YR 

The interpolation equations were formulated on the rotated coordinate system for 

reasons outlined in Section 2.4.1. From (F.1) and (F.2) it is apparent that if only a value 
for x is known (x), we cannot interpolate for y until we are able to determine xe 

To overcome this problem, we begin by fitting a straight line between the 

surface segment endpoints SSE i and SSE i+1 with coordinates (x; ,y,) and 


abscissa x is 


respectively (see Fig. 81). The ordinate value on this line for the 


Ye a Y; sail Oats x VY, 3 ¥ IA (x, = x.) (F.3) 


Now that Y¢ is known, we may substitute into (F.1) and (F.2) to find the point on the 
airfoil surface (x55) for the rotated x value x... This is our first approximation 
to (x,y). Since the cubic spline interpolator may be differentiated with respect to 


Xp, we may use the Newton-Raphson algorithm to iterate on successive values of 
Xp until Kom becomes sufficiently small. The inverse pair of equations from (F.1) 


and (F.2) may then be used to give this approximated value for y. 
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APPENDIX G. The program listing. 


WRITTEN BY: M. OLESKIW ON:790526 LAST MODIFIED:811024 


CALCULATE POTENTIAL FLOW ABOUT AN ARBITRARILY SHAPED AEROFOIL; 
CALCULATE A SERIES OF DROPLET TRAJECTORIES AND 
DETERMINE THE COLLISION LOCATIONS: FIND THE RESULTING COLLISION 
EFFICIENCY AND ACCRETE A LAYER OF ICE. 
REPEAT THE PROCESS FOR A PREDETERMINED NUMBER OF STEPS. 


INTERNAL SUBROUTINES AND FUNCTIONS: 

ACCN: CALCULATES RHS OF NON-DIMENSIONAL EQNS. OF MOTION. 

AIRPLT: PLOTS OUTLINE OF AIRFOIL WITHIN VIEW WINDOW. 

AIRVEL: CALCULATES THE AIR VELOCITY COMPONENTS AT A 
GIVEN LOCATION. 

CE: CALCULATES AND PLOTS COLLISION EFFICIENCY CURVES OF 
ARBITRARY AIRFOILS BY DETERMINING A SET OF 
IMPACTING TRAJECTORIES. 

COLVEL: INTERPOLATES DROPLET IMPACT VELOCITY 
ALONG AIRFOIL SFC. 

COORDS: CALCULATES A SET OF POINTS DEFINING THE AIRFOIL SFC. 

DRAG: CALCULATES THE REYNOLDS NUMBER AND 
DRAG COEFFICIENT OF THE DROPLET. 

FIT: ROTATES UPPER AND LOWER SFCS. IF REQUIRED, FIT 
CALCULATES CUBIC SPLINES AND DETERMINES LENGTHS 
ALONG THE AIRFOIL SFC. TO EACH ENDPOINT. 

CALCULATES THICKNESS OF ACCRETION. 

GLERKS: INTEGRATES THE DROPLET EQNS. OF MOTION 
(IN X AND Y ) USING: 

1: A 4TH ORDER RUNGE-KUTTA-FEHLBERG TECHNIQUE. 

2: ORDER EXTRAPOLATION OF THE ABOVE. 

3: STEP EXTRAPOLATION OF THE ABOVE (5TH ORDER ACCURACY). 
GROWTH: PLOTS SUCCESSIVE AIRFOIL OUTLIENS WITHIN VIEW WINDOW. 
HERMS: CALCULATES COEFFICIENTS FOR HERMITE QUINTIC SPLINES. 
HERMIT: CALCULATES THE HERMITE CUBIC POLYNOMIAL 

INTERPOLATOR GIVEN THE FUNCTION AND ITS DERIVATIVES 

AT THE ENDPTS. OF THE INTERVAL. 

HIST: DETERMINES VALUE OF INTEGRAL IN HISTORY TERM. 

ICING: CALCULATES AMOUNT OF ACCRETION AND DETERMINES A NEW 
SET OF AIRFOIL SURFACE ELEMENT ENDPOINTS AFTER DETERMINING 
THE AIRFOIL NOSE LOCATION. 

JTHICK: CALCULATES THE NEGATIVE OF THE THICKNESS OF THE 
JOUKOWSKI AIRFOIL AS A FUNCTION OF THETA AND E. 

NSURF: CALCULATES THE UNROTATED X VALUE OF A POINT ON THE 
ACCRETED AIRFOIL SFC. BASED UPON THE COLLISION EFFICIENCY, 
DIRECTION OF GROWTH, AND OLD AIRFOIL (ROTATED) SFC. POSITION. 

PC4: INTEGRATES THE EQNS. OF MOTION USING THE 4TH ORDER 
PREDICTOR-CORRECTOR METHOD OF HAMMING. 

PJK: CALCULATES ANALYTICAL VALUE OF STREAMFN. AT TRANSFORMED 
COORDS. X,Y USING THE EXACT AIRFOIL GENERATION METHOD. 

PLTSZ: DETERMINES PARAMETERS NECESSARY FOR SCALING OF A 
BEOTMANDEEESHAXES, 

POT1: SOLVES FOR SURFACE VORTEX DENSITY ON A ONE-ELEMENT 
AIRFOIL IN POTENTIAL FLOW, GIVEN THE COORDS. OF THE 
AIRFOIL SFC. 

RK4: INTEGRATES THE DROPLET EQNS. OF MOTION (IN X AND Y) 
USING THE 4TH ORDER RUNGE-KUTTA TECHNIQUE. 

SFC: CALCULATES Y VALUES AND THE LENGTH FROM THE NOSE ON THE 
SFC. OF THE AIRFOIL BY A CUBIC SPLINE INTERPOLATION. 

SFCLEN: CALCULATES THE LENGTH ALONG A SEGMENT OF THE CUBIC 
SPLINE FIT OF THE AIRFOIL SFC. 

STAB: FINDS THE JACOBIAN (DF/DY), ITS EIGENVALUES AND 
DETERMINES SUITABILITY OF ODE INTEGRATING TECHNIQUES. 

STRMFN: CALCULATES THE STREAMFN. ON A GRID ABOUT AN AIRFOIL 
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SECTION GIVEN THE SFC. VORTICITY DENSITY ON THE AIRFOIL 
AND PLOTS THE FLOW USING VELOCITY VECTORS. 

TRAJEC: CALCULATES TRAJECTORIES OF DROPLETS IN POTENTIAL FLOW 
ABOUT AN AIRFOIL. 

WHAMO: DETERMINES CLOSEST APPROACH BETWEEN DROPLET AND 
ATREOTLEES EG 


EXTERNAL SUBROUTINES: 

IN IMSL: (INTERNATIONAL MATHEMATICAL AND STATISTICAL LIBRARY ) 
LEQTIF: SOLVES SYSTEM OF EQNS. 
ICSICU: CUBIC SPLINE INTERPOLATION. 
ZXGSN: GOLDEN SECTION SEARCH METHOD FOR FINDING FN. MINIMUM. 
VSRTRD: SORT A VECTOR SO THAT ELEMENTS ARE IN INCREASING ORDER. 
EIGRF: FIND THE COMPLEX EIGENVALUES OF A MATRIX. 
IQHSCU: CALCULATE COEFFICIENTS OF A QUASI-HERMITE 

INTERPOLATING POLYNOMIAL. 


IN SSPLIB: (SCIENTIFIC SUBROUTINE LIBRARY - SUPPLIED BY IBM) 
DELI1: INCOMPLETE ELLIPTIC INTEGRAL OF THE FIRST KIND. 
DELI2: INCOMPLETE ELLIPTIC INTEGRAL OF THE SECOND KIND. 
DCEL1: COMPLETE ELLIPTIC INTEGRAL OF THE FIRST KIND. 
DCEL2: COMPLETE ELLIPTIC INTEGRAL OF THE SECOND KIND. 


INPUT/OUTPUT DEVICE ASSIGNMENTS: 
: AIRFOIL INPUT COORDINATES (IF TYPE=4 OR TYPE=5). 
DATA READ BY SUBPROGRAM PLTSZ TO SCALE PLOTS. 
PROGRAM INPUT PARAMETERS AND OPTIONS (DESCRIBED BELOW). 
INPUT CRT DEVICE FOR CONTROL OF PROGRAM. 
OUTPUT CRT DEVICE FOR MONITORING OF PROGRAM. 
OUTPUT HARDCOPY DEVICE FOR PRINTED OUTPUT. , 
OUTPUT OF SURFACE SEGMENT ENDPOINTS FOR EACH ACCRETED 
SURFACE IN FORMAT SUITABLE FOR SUBSEQUENT 
TNEUT INTO DEVECE 2. 
9: OUTPUT FILE FOR STORAGE OF PLOT DESCRIPTION 
(CALCOMP FORMAT). 


OANOmNARA WN 


PROGRAM INPUT PARAMETERS AND OPTIONS: 
TO BE READ IN FROM INPUT DEVICE 4. EACH GROUP OF PARAMETERS 
IS TO BE READ FROM THE SAME LINE (CARD) USING THE SPECIFIED 
FORMAT. EACH DATA LINE PRECEDED BY A DESCRIPTIVE REMINDER 


LINE. SEE APPENDIX I FOR DETAILS. 


OPTIONS AND DATA: (SEPARATED BY COMMAS) (SYMBOLS IN BRACKETS 
AT ENDS OF LINES REFER TO FORTRAN FORMAT TYPE) 
ALPHA=ANGLE OF ATTACK IN DEGREES(F) 


TYPE=AIRFOIL TYPE(I) 
~11:ANALYTICAL PARABOLA AS A 3-D BODY OF REVOLUTION ABOUT 


THE CHORD. NOTE: STRMFN. UNDEFINED AT CHORD LINE. 
-10:ANALYTICAL FLYING CIGAR AS A 3-D BODY OF REVOLUTION 
ABOUT THE CHORD. 
-3:ANALYTICAL JOUKOWSKI AEROFOIL (APPROXIMATE) 
-2: ANALYTICAL JOUKOWSKI AEROFOIL (EXACT) 
-4:ANALYTICAL CYLINDER 
O:NACA RAZOR 
14:CYLINDER (VORTEX SHEETS) 
2: JOUKOWSKI eee On hee 
: KOWSKI (VORTEX APP 
Nei x ae Y COORDS FOR UPPER SFC. OF SYMMETRICAL 


AEROFOIL. 
- INPUT X AND Y COORDS FOR BOTH SFCS OF ASYMMETRICAL 
pr oee PERCENT (F) 
THICK=THICKNESS OF AIRFOIL IN 
MEAN=NACA DESIGNATION FOR MEAN LINE IN 4 & 5 DIGIT AEROFOILS (1) 
NEF=NO. OF CEE’S ON FRONT THIRD OF AEROFOIL OP 
NEB=NO. OF CEE’S ON BACK TWO-THIRDS OF AEROFOIL (TI) 
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(INCLUDES THE ENDPT. AT THETA=60 DEG. ) 
NIF=NO. OF SSE’S BETWEEN CEE’S ON FRONT THIRD (I) 
ANAL=O:ESTIMATE SEGMENT LENGTH NUMERICALLY 
1:DETERMINE SEGMENT LENGTH BY ANALYTICAL METHOD (APPENDIX E). 
PLTFAC=PLOT REDUCTION OR EXPANSION FACTOR FOR ALL PLOTS. CF) 


UINF=FREESTREAM VELOCITY [M/S] (F) 

C=CHORD LENGTH [M] (F) 

TINF=FREESTREAM TEMPERATURE [C] (F) 

PINF=FREESTREAM PRESSURE [KPA] (F) 

aia eee AIR VELOCITY COMPONENTS AT INPUT COORDS xX & Y 
ORORS 1) 


TRUPLA=O:NO TRAJECTORY PLOTS 
1:PLOT TRAJECTORIES ONLY FOR FIRST LAYER 
2:PLOT TRAJECTORIES FOR ALL LAYERS 
XMIN= 
XMAX= TRAJECTORY VIEWPORT SIZE IN X (F) 
YMIN= 
YMAX= TRAJECTORY VIEWPORT SIZE IN Y (F) 
XZ=—)GRIDy SUZENIN YX (1) 
YZ= GRID SWZE IN) ¥ (1) 
XMINI= 
XMAXI=ICE ACCRETION VIEWPORT SIZE IN X (F) 
YMINI= 
YMAXI=ICE ACCRETION VIEWPORT SIZE IN Y (F) 


EQN=O: EQN. OF MOTION INCLUDES TERMS A AND B (NO INDUCED 
MASS OR BUOYANCY ) 
1: EQN. OF MOTION INCLUDES TERMS APRIME AND BPRIME 
: EQN. OF MOTION INCLUDES TERMS APRIME, BPRIME, AND 
CPRIME (HISTORY TERM) 
PC=O: INTEGRATE BY RUNGE-KUTTA 
1: INTEGRATE BY PREDICTOR-CORRECTOR (AFTER FIRST 3 INTERVALS) 
2:INTEGRATE BY RUNGE-KUTTA-FEHLBERG 
ACN=O: INITIAL DROPLET VELOCITY GREATER THAN THAT OF AIR 
BUT IN THE SAME DIRECTION. 
4: INITIAL DROPLET VELOCITY DIFFERS FROM THAT OF AIR 
AS PER LOCAL AIR ACCN. 
GRAV=INCLUDE GRAVITATIONAL ACCN (0 OR 1) 
CDS=O: ABRAHAM (1970) CD 
1:SARTOR & ABBOTT (1975) CD FOR 0.01<RED<5 
STOKES CD FOR RED<O.01 
2:LANGMUIR & BLODGETT (1945) CD 
TRUPRA=PRINT TRAJCTORY INFO (O OR 1) 
PRINTO=NO. OF PRINT POINTS IN VIEWPORT DIAGONAL LENGTH 
(OUTSIDE VIEWPORT (I)) 
PRINTI=NO. OF PRINT POINTS IN VIEWPORT DIAGONAL LENGTH 


(WITHIN VIEWPORT (1)) 


DDISTN=NUMBER OF DROPLET SIZES IN DROPLET DISTRIBUTION (1) 
DD & W=DROPLET DIAMETERS (IN MICROMETERS) AND FRACTIONAL 
WEIGHTS FOR DROPLET DISTN. (ALTERNATELY) (F,F) 


EPS= LOCAL ERROR IN ODE INTEGRATION DIVIDED BY STEP SIZE 
FOR EACH DROPLET SIZE IN DISTRIBUTION. (D) 


AT=O:START TRAJECTORIES AS SPECIFIED BY DD, EPS, XO, YO 
4: AUTOMATICALLY DETERMINE TRAJECTORY STARTING POINTS 


AFTER FIRST ONE FOR EACH SFC. 
CEDEL=CRITERION FOR MAX. % DIFFERENCE BETWEEN TWO REALIZATIONS 


RECE VSulk «CURVE «CF-) 
Spee acpe ape FOR MAX. % DIFFERENCE BETWEEN E MAX AS PER 
INTEGRATION OF BETA, AND DISTANCE BETWEEN GRAZING TRAJ. (F) 
H5=O0:YO VS L CURVE INTERPOLATED BY HERMITE CUBIC POLYNOMIALS. 
4:YO VS L CURVE INTERPOLATED BY HERMITE QUINTIC SPLINE. 
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YOL=PLOT THE YO VS L GRAPH (0, 1, OR 2) (2 PLOTS AT HALF PAGE SIZE) 
CEL=PLOT THE CE VS L GRAPH (0,1,2,3,0R 4) 
(2 AND 4 PLOT AT HALF PAGE SIZE: 3 AND 4 ALSO PLOT MEAN 
CE VS L CURVE WHEN THERE IS A DROPLET DISTRIBUTION, 
OR IF SMOOTHING IS PERFORMED). 
CEX=PLOT THE CE, VS X GRAPH (0, 1, OR 2) (2 PLOTS, AT. HALF PAGE SIZE) 
FILTER=LENGTH OF BOXCAR FILTER(AS A FRACTION OF L RANGE OF 
LARGEST DROPLET SIZE) TO BE APPLIED TO SMOOTH CE VS L 
CURVEGS).. IF ©, THEN. DON T- FILTER.. (CB) 
LLEFT=LEFTMOST POINT TO BE PLOTTED IN YO VS L AND CE VS _L 
CURVES. IF O, DETERMINE AUTOMATICALLY. (F) 
LRIGHT=RIGHTMOST POINT AS ABOVE. (F) 


ICEPLA=O: NO PLOT 
1: PLOT AEROFOIL & ICE LAYERS 
LYRMAX=MAX NUMBER OF LAYERS TO ACCRETE (1) 
ICE=FRACTION OF CHORD LENGTH TO BE ACCRETED PER LAYER ASSUMING 
A COLLISION EFFICIENCY OF 100% (F) 
LTOL=MAX. INCREASE IN LENGTH ALLOWED BETWEEN CEE’S 
BETWEEN SUCCESSIVE AIRFOIL SURFACES (F) 
ATHICK=O:CALCULATE ACCRETION THICKNESS ASSUMING FLAT SFC. 
LOCALLY. 
1:ACCOUNT FOR SFC. CURVATURE IN CALCULATING ACCRETION 
THICKNESS (IF ATHICK=-1, CALCULATE RADIUS OF 
CURVATURE FROM SPLINE FIT AT THAT POINT ONLY. ) 
DENSE=0O:CONSTANT ICE DENSITY. 
1: VARY ICE DENSITY ACCORDING TO NORMAL COMPONENT 
GCFeDROPEETM INPACI. VELOCITY: 
2: VARY ICE DENSITY ACCORDING TO TOTAL DROPLET IMPACT VEL. 


XO=X (UPSTREAM) COORD. FOR TRAJECTORY STARTING PTS. (F) 
YO=Y (OFF AXIS) COORDS FOR TRAJECTORY STARTING POINTS. (F) 
INPUT ONE SET SFOR EACH SEC. IF BOT EQUALS 1 


FORMAT(/.F6.0.15.F6.0,15,314,15,F7.0) 
FORMAT(/,F7.0,F6.0,F7.0,F6.0,15) 
FORMAT(/,17,4F5.0,213,4F6.0) 
FORMAT(/,14,13,14,15,14,317) 
FORMAT(/,17,5(F6.0,F5.0)) 

FORMAT(/,5D10.0) 
FORMAT(/,13,2F6.0,13,314,F7.0,F6.0,F7.0) 
FORMAT(/,217,.F6.0.F5.0.17,16) 

FORMAT(14) 

FORMAT(12,2F 19.16) 

FORMAT(’OENTER X & Y:’) 

FORMAT(2F 10.2) 

FORMAT(’ VELOCITY COMPONENTS: U=’,F9.5,’ V=’, 
tF9e Svs EPOdALS VELOCITY: ,F9.5) 
FORMAT(’1’,T26, ‘DISTANCE’ ,154, ‘DISTANCE’ ,/, 

.’ END’,T28,’FROM’ ,T56, ’FROM’,/, 

.’ POINT xX COORD Y COORD NOSE X COORD Y COORD NOSE’ ,/) 
FORMAT(’ ’,14,2(F10.5,2F9.5)) 


DOUBLE PRECISION ALPHA,XE(101),YE(101),UINF,C,TINF,PINF, 
-PI,X,DFLOAT,LTOL, ICE, ACCRT,EPS(5).0D(5),W(5),LU(101),LL(101), 
-xU( 101), YU(101),.XL(101),YL(101), THICK, Y,U,V,VV,TH.FS, 

_XN, YN, ALPHAR, THETA, XMINI ,XMAXI, YMINI, YMAXI,DSORT,DABS, FILTER 


REAL XMAX,XMIN, YMIN, YMAX,PLTFAC, CEDEL, EMDEL,LLEFT,LRIGHT 


INTEGER I,U, TYPE,XZ,YZ, TRUPLA,NCOU,NCOL,EQN,PC,ACN, TRUPRA, 
-PLT, LAYER, LYRMAX,NCOL1,CEL,YOL,ICEPLA,AT,BOTH, FAIL, ANAL, 
-ATYPE, IABS, 1U(51).1L(51),NEB.NEF,NIF,NIFP1,CEX,II,1U,NEU,NEL, 
-IXU( 101), IXL(101),PRINTO,PRINTI,ODISTN,CDS,AMAXO, IK, 

“ATHICK, DENSE, VINO, UZ, GRAV, MEAN, H5 ,NEUU, NELL,H5D(5) 
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COMMON ALPHAR,PI/AERO1/XE,YE/NOSE/XN, YN 


./LA/ANAL/AERO3/NCOU ,NCOL/HERMT5/H5 ,H5D/LG/LU,LL 

./GRID/XMIN, XMAX, YMIN, YMAX,XZ,YZ/SFCS/XU, YU,XL.YL 
./AERO4/NEU,NEL,NEUU,NELL/ENDS/IU,IL,IXU,IXL 

./LLR/ACCRT, LAYER, ATYPE/TRANS 1/UINF ,PINF, TINF, EPS,DENSE/NACA/TH 
. /TRANS2/CDS, TRUPRA, PRINTI ,PRINTO, EON, 

-PC,ACN, GRAV/WTS/W/TRANS3/DD,C,TYPE,JUZ/CRITS/CEDEL, EMDEL 


C INPUT PARAMETERS: 


READ(4,5)ALPHA, TYPE, THICK, MEAN,NEF,NEB,NIF,ANAL,PLTFAC 
READ(4,10)UINF,C,TINF,PINF,VINQ 
READ(4,15)TRJUPLA, XMIN, XMAX, YMIN, YMAX,XZ,YZ,XMINI, XMAXI, 


. YMINI, YMAXI 


READ(4,20)EQN,PC, ACN, GRAV,CDS, TRUPRA,PRINTO,PRINTI 
READ(4,25)DDISTN, (DD(I),W(I),I=1,DDISTN) 
READ(4,26)(EPS(1I),1=1,O0DISTN) 
READ(4,30)AT,CEDEL,EMDEL,HS5,YOL,CEL,CEX,FILTER,LLEFT,LRIGHT 
READ(4,35)ICEPLA,LYRMAX,ICE,LTOL,ATHICK, DENSE 


PI=3.141592653589793 
ALPHAR=ALPHA*PI/1.8D2 
BOTH=0 
IF(TYPE.EQ.5.OR.MEAN.NE.O 


..OR.DABS(ALPHAR) .GT.1.0-5)BOTH=1 


ACCRT=0.DO 
TH=THICK 
ATYPE=IABS(TYPE ) 


C DETERMINE PARAMETERS FOR JOUKOWSKI AEROFOILS 


Q 


a0 


220 


300 


310 


IF(ATYPE.EQ.2)CALL JOUKEX( THICK) 
IF(ATYPE.EQ.3)CALL VJOUKAP( THICK) 


DETERMINE PARAMETERS FOR NACA MEAN LINE. 


IF(TYPE.EQ.O0)CALL KOORDS(MEAN) 
IF(TYPE.NE.4.AND.TYPE.NE.5)GOTO 200 


READ IN X AND Y COORDS. DEFINING THE AEROFOIL SFC. 


NCOU=0 
READ(2,40)NEU 
NEUU=NEU 
NELL=NEUU 
IJU=1 
DO 300 I=1,NEU 
READ(2,50)IXU(I),xU(1I),YU(I) 
IF(IXU(I).EQ.0)GOTO 220 
NCOU=NCOU+ 1 
IU(IJ)=I 
IL(IJ)=I 
IJ=IuU+14 
IF(TYPE.EQ.5)GOTO 300 
TXECT )=1 X00) 
XL(1)=XUC(I) 
VUCE) 4YUCT) 
CONTINUE 
NCOL=NCOU 
IF(TYPE.EQ.4)GOTO 210 
IJ=1 
NCOL=O 
READ(2,40)NEL 
NELL=NEL 
DO 310 I=1,NEL 
READ(2. SO) IXE( TA XECI), YL(1) 
IF(IXL(1I).—£Q.0)GOTO 310 
NCOL=NCOL+ 1 
IL(IJ)=I 
IJ=IJ+1 
CONTINUE 
GOTO 210 
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C CALCULATE AEROFOIL COORDS. 


200 


140 
110 


150 


C 


IF(ATYPE.EQ.1)FS=PI/2.D0 
IF(ATYPE.NE.1)FS=PI/3.D0 
NIFP4=NIF+14 
IJ=1 
NCOU=NEF+NEB 
NCOL=NCOU 
DO 110 I=1,NEF 
IU(I)=Id 
IL(I)=IJ 
DO 140 J=1.NIFP14 
THETA=FS*DFLOAT((I-1)*NIFP1+JU-1)/DFLOAT(NEF*NIFP 1) 
CALL COORDS(TYPE, THICK, THETA, XU(IJU),XL(IJU),YU(IU),YL(Iu)) 
IJ=IuJ+1 
CONTINUE 
CONT INUE 
IF(ATYPE.EQ. 1)NEUU=IJ 
DO 150 I=1,NEB 
THETA=FS+(PI-FS)*DFLOAT(I-1)/DFLOAT(NEB-1) 
CALL COORDS(TYPE, THICK, THETA, XU(IJU),XL(IJU),YU(IJ),YL(Iuv) ) 
IU(NEF+I )=IuU 
IL(NEF+I)=IJ 
TJ=IJ+1 
CONTINUE 
NEU=IU- 1 
NEL=NEU 
IF(ATYPE.NE. 1 )NEUU=NEU 
NELL=NEUU 
LAYER=1 
XN=XU(1) 
YN=YU(1) 


PLT=TRJPLA+YOL+CEL+CEX+ICEPLA 


C TRANSFORM THESE COORDS. TO ONE VECTOR OF LENGTH NCOU+NCOL- 1 


Cc 
100 


102 


104 
Cc 


IN CLOCKWISE ORDER. WITH XE(1)=XE(NCOL+NCOU-1) - THE LEADING PT. 


DO 102 I=1,NCOU 
TI=IU(1) 
XE(1I)=XU(II) 
YE(I)=YUC(II) 
CONTINUE 
NCOL 1=NCOL - 1 

DO 104 I=1,NCOL1 
J=NCOU+NCOL - I 
PT= Peres j 
XE(U)=XLC(II) 
YE(JU)=YL(II) 
CONTINUE 


C SAVE COORDS OF LATEST LAYER. 


380 


390 
Cc 


IF(LAYER.LE.1)GOTO 106 

WRITE(8,40)NEU 
DO 380 I=1,NEU 
WRITE(8,50)IXU(I),XU(I), YUC(T) 
CONTINUE 

WRITE(8,40)NEL 
DO 390 I=1,NEL 
WRITE(8,50)IXL(1),XL(1I),YLCT) 
CONTINUE 


C FIT SPLINES TO UPPER & LOWER SFCS. 


106 


IF(LAYER.EQ.1)CALL FIT(BOTH) 
IF(LAYER.GT.LYRMAX)GOTO 370 


C DETERMINE VORTICIES TO GENERATE FLOWFIELD. 


IF(TYPE.GE.O)CALL POT1 
IF(PLT.EQ.O)GOTO 121 
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ACCN 
IFC LAYER. GT. t)GOTO 125 
Cc 
C OPEN PLOTTING 
CALL PLOTS 
CALL METRIC(1) 
CALL ORGEP(5.0,5.0,5.0) 
CALL FACTOR(PLTFAC) 
Cc 


125 IF(TRUPLA.EQ.0.O0R. (TRUPLA.EQ.1.AND.LAYER.GT.1))GOTO 121 
C PLOT VELOCITY VECTORS AND AEROFOIL SHAPE. 
CALL STRMFN(TYPE) 
CALL: AIRPLT(XMIN, XMAX, YMIN, YMAX,LAYER,O) 
124 IF(VINQ.EQ.1)GOTO 350 
IFCAT.EQ.1)GOTO 130 
CALL TRAJEC(TRUPLA, THICK, AT,BOTH,DDISTN,LAYER,O) 
GOTO 360 
C STORE COORDS. OF ICING SHAPE. 
130 IFC ICEPLA.EQ.1)CALL AIRPLT(XMINI,XMAXI,YMINI, YMAXI,LAYER, 1) 
€ DETERMINE COLLISION EFFICIENCIES. 
CALL CE(YOL,CEL,CEX,PLTFAC, THICK,LAYER,DDISTN,BOTH,AT,TRUPLA, | 
ae Ea iebista 1p (eleel an) 
C DETERMINE COLLISION IMPACT VELOCITIES. 
IF (DENSE .NE.O)CALL COLVEL(DDISTN) 
CVACCRETERICE SEAVERS: 
LAYER=LAYER+ 14 
CALL ICING(LTOL,ICE,BOTH,FAIL,DDISTN,ATHICK, FILTER) 
IF(LAYER.GT.LYRMAX.AND.ICEPLA.EQ.O)GOTO 360 
IF(FAIL.EQ.1)GOTO 360 


GOTO 100 
Cc 
C FIND VELOCITY COMPONENTS AT ARBITRARY X & Y 
350 JZ=1 


355 WRITE(6,55) 
READ(5,60)xX,Y 
IF (DABS(X).LT.1.D-10.AND.DABS(Y).LT.1.D-10)STOP 
CALL AIRVEL(X,Y.U,V,4) 
VV=DSQRT(U*U+V*V) 
WRITE(6,70)U,V,VV 
GOTO 355 
c 
370 CALL AIRPLT(XMINI ,XMAXI,YMINI, YMAXI,LAYER, 1) 
C PLOT THE ICING LAYERS. 
CALL GROWTH(XMINI,XMAXI,YMINI, YMAXI,LYRMAX,PLTFAC) 
360 IF(PLT.NE.O)CALL PLOT(O.,O.,999) 
C WRITE OUT THE NEW AIRFOIL COORDS. 
NEU=AMAXO(NEU,NEL) 
WRITE(7,80) 
DO 400 IK=1,NEU 
WRITE(7,85)1K,XU(IK),YU(IK),LU(IK),XL(IK),YL(IK),LL(IK) 


400 CONTINUE 
STOP 
END 
C 
(e ee ee Be HK SSE HBSS BR SK HSS S SESS SS SS SS SSS SSK SSS SS SSS SSS SS SS SS SSS SHS SESS SSE 
Cc 


SUBROUTINE ACCN(UD,VD,UA,VA,RED,CD,EQN,T,G) 
WRITTEN BY: M. OLESKIW ON: 801216 LAST MODIFIED:810626 


CALCULATES RHS OF NON-DIMENSIONAL EQNS. OF MOTION 


(oenenen@) 


DOUBLE PRECISION RED,NUS,RDS,APU,APV,BPU,BPV 
_,AN(2,6,2),HF,HX,HY,HT(2,6,2),DSORT,AU,AV,BU,BV,RHOA, 
-RHOD, GS, ALPHAR,PI,CD.UD,VD,UA,VA,TS(500,2),0TS(6,2),T, 


-DCOS.OSIN,K2,K2.K4 
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AIRPLT 


INTEGER EQN.G,I(2),IM4(2),IM3(2),1M2(2),IM1(2),10(2),IP14(2), 


.FNCALL,MM 


COMMON ALPHAR,PI/EQNMN/GS,RHOA,RHOD,RDS,NUS,HF 


-/INTEG/AN,HT/LOC/TS,DTS,1,1IM4,IM3,IM2,IM1,IO,IP1,MM 
./FC/FNCALL/STAB1/K2,K3,K4 


UD= 
VD=DROPLET VELOCITY COMPONENTS. 
UA= 
VA=AIR VELOCITY COMPONENTS. 
RED=RELATIVE MOTION REYNOLDS NO. 
CD=DRAG COEFFICIENT. 
EQN=PARAMETER TO DETERMINE TERMS USED IN EQN. OF MOTION. 
T=TIME AT THIS TIME STEP. 
G=O:EXTRAPOLATE HISTORY TERM SEQUENCE. 
1:CALCULATE NEW HISTORY TERM VALUE. 


FNCALL=FNCALL+1 
IF(EQN.EQ.0)GOTO 100 


FIRST TWO TERMS IN EQN. OF MOTION INCLUDING GRAVITATION AND 
STEADY STATE DRAG. (INCLUDES BUOYANCY AND INDUCED MASS EFFECTS) 


APU=K4*GS*DSIN(ALPHAR ) 
APV=K4*GS*DCOS(ALPHAR) 
BPU=CD*K3* (UD-UA) *RED/K2 
BPV=CD*K3*(VD-VA)*RED/K2 
AN(1,I1P141(MM),MM)=APU-BPU 
AN(2,1P1(MM) ,MM)=-APV-BPV 
IF(EQN.EQ.2)GOTO 300 

HF =0.DO 

RETURN 


C THIRD (HISTORY) TERM FOR SHEDDING OF VORTICITY 


300 


c 


CALE HESi(1,G) 
HX=-9.DO*K3/0.75D0*DSQRT(NUS/PI)*HT(1,1P1(MM),MM) 
HY =-9 .DO*K3/0.75D0*DSORT (NUS/PI)*HT(2,1P1(MM),MM) 
AN(71,I1P41(MM),.MM)=AN(1,I1P1(MM),MM)+HX 
AN(2,1P1(MM),MM)=AN(2,I1P1(MM),MM)+HY 
IF(G.EQ.O)RETURN 

HF =DSQRT ( (HX *HX+HY *HY )/( (APU-BPU) **2+ (APV+BPV ) **2) ) 
RETURN 


C FIRST TWO TERMS IN EQN. OF MOTION WITHOUT BUOYANCY AND INDUCED MASS 


100 


OOO: 


QiOLOO@ 


AU=GS*DSIN(ALPHAR ) 
AV=GS*DCOS(ALPHAR) 
BU=0.375D0*RHOA/RHOD*CD/RDS* (UD-UA ) *RED/K2 
BV=0. 375D0*RHOA/RHOD*CD/RDS*(VD-VA)*RED/K2 
AN(1,1P1(MM),MM)=AU-BU 

AN(2,1P1(MM) ,MM)=-AV-BV 

HF =0.D0 


SUBROUTINE AIRPLT(XMIN, XMAX, YMIN, YMAX,LAYER,PT) 


WRITTEN BY: M. OLESKIW ON:800607 LAST MODIFIED: 810918 


PLOTS OUTLINE OF AEROFOIL WITHIN VIEW WINDOW 


DOUBLE PRECISION XU( 101), YU(101),XL(101),YL(101), 
.XE( 101), YE( 101) 
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C 
REAL XMIN,XMAX,YMIN, YMAX,SNGL,XP,YP,XPT(204), 
.YPT( 204), XPE(203) , YPE(203) ,XGR(204,10),YGR(204,10), 
.XGRE( 203,10), YGRE(203,10),XPP,YPP 

C 
INTEGER NCOU,NCOL,NCOB,IE,IP,J,NCOB1,I1, 
~LICID) LAYER, 177, 1P6. 1TE( 10), 1TTE, 
-.NEL,NEU,NELM2,PT,NEUU,NELL 

Cc 


COMMON /GROW/XGR,YGR, 
-XGRE,YGRE,ITE,IT/AERO1/XE, YE/AERO3/NCOU, NCOL 
./SFCS/XU, YU, XL, YL/AERO4/NEU, NEL ,NEUU,NELL 


IN XMIN= 

IN XMAX= 

IN YMIN= 

YMAX=PLOT WINDOW BOUNDARIES. 

IN LAYER=LAYER NO. 

IN PT=O:CALCULATE PLOTTING SHAPE AND PLOT IT. 
IN 1: CALCULATE PLOTTING SHAPE ONLY. 


QO OO QO Qra'oO 
i) 
z 


NELM2=NEL-2 
NCOB=NCOU+NCOL ~ 1 
NCOB 1=NCOB - 1 
IP=0 

IE=0 


C FOR THE UPPER SFC.: 
DO 700 J=1,NEU 
XP=SNGL(XU(J) ) 
YP=SNGL(YU(U) ) 
IF(YP.GE.YMAX)GOTO 720 
IF(XP.GE.XMAX)GOTO 730 
IP=IP+1 
XPT(IP)=xXP 
YPT(IP)=yYP 
700 CONTINUE 
GOTO 740 
720 IF(IP.GT.O)GOTC 750 
XPT(IP+1)=XP 
YPT(IP+1)=YMAX 
GOTO 760 
C OUT ALONG THE TOP EDGE 
750 XPT(IP+14)=(XP-XPT(IP))/(YP-YPTCIP))*(YMAX-YPTC IP) )+XPT(IP) 
YPT(IP+1)=YMAX 
C UPPER RIGHT CORNER 
760 IP=IP+2 
XPT (IP )=XMAX 
YPT(IP)=YMAX 
GOTO 740 
C OUT ALONG THE RIGHT EDGE 
730 XPT(IP+1)=XMAX 
YPT(IP+1)=(YP-YPT(IP))/(XP-XPT( IP) )*(XMAX-XPTCIP) )+YPTCIP) 


IP=IP+1 


C FOR THE LOWER SFC.: 
740 IPB=IP 
DO 800 J=1,NELM2 
XP=SNGL(XL(NEL-U) ) 
YP=SNGL(YL(NEL-u)) 
IF(XP.GE.XMAX.OR.YP.LE.YMIN)GOTO 820 
IF(U.EQ.1)GOTO 830 
IF(XPP.LE.XMAX.AND.YPP.GE.YMIN)GOTO 830 
IF(YPP.LE.YMIN)GOTO 840 
C IN ON THE RIGHT EDGE 
IP=IP+1 
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XPT (IP) =XMAX 
YPT(CIP )=(YP-YPP)/(XP-XPP) *(XMAX-XPP )+YPP 


GOTO 830 
C IN ON THE BOTTOM EDGE 
840 XPT(IP+1)=XMAX 
YPT(IP+1)=YMIN 
IP=IP+2 


XPT(IP)=(XP-XPP)/(YP-YPP )*(YMIN-YPP)+XPP 
YPT(IP)=YMIN 
C ADD ANOTHER POINT WITHIN WINDOW. 
830 IP=IP+4 
XPT(IP)=XP 
YPT(IP)=YP 
820 XPP=XP 
YPP=YP 
800 CONTINUE 
IF(IP.NE.IPB)GOTO 850 
IP=IP+1 
XPT(IP)=XMAX 
YPT(IP)=YMIN 


C ADD PARAMETERS NECESSARY FOR PLOTTING 
850 XPT(IP+1)=xXPT(1) 
YPT(IP+1)=YPT(1) 
XPT(IP+2)=XMIN 
YPT(IP+2)=YMIN 
DO 200 I=1,NCOB1 
XP=SNGL(XE(I)) 
YP=SNGL(YE(I)) 
IF(XP.GT.XMAX)GOTO 200 
IF(YP.GT.YMAX.OR.YP.LT.YMIN)GOTO 200 
IE=IE+1 
XPE(IE)=xXP 
YPE(IE)=YP 
200 CONTINUE 
XPE(IE+1)=XMIN 
YPE(IE+1)=YMIN 
XPT (IP+3)=(XMAX-XMIN)/20. 
XPE(IE+2)=(XMAX-XMIN)/20. 
YPT(CIP+3)=(YMAX-YMIN)/12. 
YPE(IE+2)=(YMAX-YMIN)/12. 
IT(LAYER)=IP+3 
ITT=IP+3 
ITE(LAYER)=IE+2 
ITTE=IE+2 
IF(PT.EQ.0)GOTO 460 


(S)(S) ONS) 


Cc 
C THESE ARE THE AEROFOIL OUTLINE LINE SEGMENTS 


Cc TO BE PLOTTED WITHIN THE WINDOW 
DO 400 1=1,1TT 
XGR(I,LAYER)=XPT(1) 
YGR(I,LAYER)=YPT(I) 

400 CONTINUE 


C THESE ARE THE AEROFOIL ELEMENT ENDPTS. WITHIN THE WINDOW. 


DO! 450 T=1, ITE 
XGRE(1,LAYER)=XPE(I) 
YGRE(I.,LAYER)=YPE(I) 
450 CONTINUE 
IF(PT.EQ.1)RETURN 
Cc 
ENTRY ERRPLT 
C PLOT THE AEROFOIL OUTLINE 
460 CALL NEWPEN(3) 
CALL LINE(XPT.YPT,IP+1,1,0,0) 
CALL ALINER (O41) 
CALL LINECXPE, YPE.1E, 1,-1.0) 
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AIRVEL 


RETURN 
END 


SUBROUTINE AIRVEL(X,Y,UAS,VAS,NP) 


WRITTEN BY: M. OLESKIW ON:800222 LAST MODIFIED:810608 


CALCULATES THE AIR VELOCITY COMPONENTS AT A GIVEN LOCATION 


DOUBLE PRECISION X.Y,UAS,VAS,XP(13),YP(13),xC(101),YC(101), 


-RDS , GAMMA(101),D( 100) ,K(101),PI,PUK,DD(S),C,AA,MM, SIGMA, 
-$1( 100) ,CO(100),PS1I(13),DXC,DYC,DELTA,A,B,R1S,R2S, TH, DSOQRT,DSORT, 
-R3S,DATAN,T3,DABS,DSIGN,ALPHAR,T1,T2,DLOG,R,DCOS,DSIN 


INTEGER L,NP,J,NCOU,NCOL,N, TYPE, JJ 


COMMON ALPHAR,PI/AERO3/NCOU,NCOL/AERO2/XC,YC,GAMMA,D,SI,CO 


./AIR/XP,YP,PSI/TRANS3/DD,C, TYPE, JJ/NACA/TH 


X= 

Y=COORDS. AT WHICH AIR VELOCITY IS TO BE DETERMINED. 
UAS= 

VAS=COMPONENTS OF AIR VELOCITY. 

NP=NUMBER OF POINTS AT WHICH TO CALCULATE PSI. 


N=NCOU+NCOL -2 
SIGMA=1.DO 

GRID FOR AIR VELOCITY CALCULATIONS 
RDS=DD(JUJU)/2.D6/C 
XP(1)=xX 

XP(2)=xX 

XP(3)=X-RDS 
XP(4)=X+RDS 

XP(5)=xX 

YP(1)=Y+RDS 
YP(2)=Y-RDS 

YP(3)=Y 

YP(4)=Y 

YP(5)=Y 
IF(NP.NE.13)GOTO 100 


C GRID FOR JACOBIAN CALCULATIONS 


100 


XP(6)=XP(4) 
XP(7)=xXP(4) 
XP(8)=XP(3) 
XP(9)=XP(3) 
XP( 10) =X 
XP(11)=X+2.DO*RDS 
XP(12)=X-2.DO*RDS 
xP(13)=x 
YP(6)=YP(1) 
YP(7)=YP(2) 
YP(8)=YP(1) 
YP(9)=YP(2) 
YP(10)=Y+2.DO*RDS 
YP(11)=Y 
YP(12)=Y 
YP(13)=Y-2.DO*RDS 
DO 110 J=1,NP 
IF(TYPE.EQ@.-1)GOTO 115 
IF(TYPE.EQ.-2.0R.TYPE.EQ.-3)GOTO 200 
IF(TYPE.EQ.-10)GOTO 400 
PSI(JU)=0.0 
DO 120 L=1,N 
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CE 


C FIND DISTANCE BETWEEN CONTROL PT. L AND GRID PT. Iu. 
DXC=XP(UJU)-XC(L) 

DYC=YP(UJU)-YC(L) 

C CALCULATE COMPONENTS OF EQN. 9 AND FIG. 2 
DELTA=D(L)/2.D0 
B=DXC*CO(L)+DYC*SI(L) 
A=DYC*CO(L)-DXC*SI(L) 
R1S=A*A+(B+DELTA)*(B+DELTA) 
R2S=A*A+(B-DELTA)*(B-DELTA) 
R3S=A*A+B*B-DELTA*DELTA 
IF(R3S.LT.1.D-30)GO TO 130 
T3=DATAN(2.DO*A*DELTA/R3S ) 


GO TO 140 

130 IF(DABS(A).LT.1.D-30)GO TO 150 
T3=DATAN( (B+DELTA)/A)-DATAN( (B-DELTA)/A) 
GO TO 140 

150 T3=DSIGN(PI,A) 

140 T1=(B+DELTA)*DLOG(R1S) 


T2=(B-DELTA)*DLOG(R2S) 
K(L)=(T1-T2+2.DO*A*T3-4.DO*DELTA)/4.D0/PI 
PSI(U)=PSI(JU)-GAMMA(L)*K(L) 
120 CONTINUE 
R=YP(J)*DCOS(ALPHAR )-XP(JU)*DSIN(ALPHAR) 
C ASSURE THAT PSI ON AEROFOIL = O. 
PSI(JU)=PSI(U)+R-GAMMA(N+ 14) 


GOTO 110 
Cc 
C STREAMFN. FOR A CYLINDER. 
115 PSI(JU)=YP(JU)-YP(JU)/4.D0/((XP(JU)-5.D-1)**2+YP(JU)*YP(J)) 
GOTO 110 
Cc 
C STREAMFN. FOR A JOUKOWSKI AEROFOIL. 
200 PSI(JU)=PUK(XP(JU),YP(U)) 
GOTO 110 
cS 
C STREAMFN. FOR A FLYING CIGAR. 
400 AA=TH/4.D2 
MM=AA*AA 
IF(YP(JU).LT.O.DO)GOTO 410 
PSI (JU) =MM*(AA-XP(JU))/DSORT((AA-XP(U) ) **2+ 
YP(J)*YP(UJU) )+YP(JU)*YP(JU)/2.D0 
GOTO 110 
410 PSI(U)=2.DO*+MM-MM* (AA-XP(UJU))/DSORT( (AA-XP(J) ) **2+ 
.  YP(U)*YP(JU))-YP(JU)*YP(JU)/2.D0 
110 CONTINUE 
c 


C FOR BODIES OF REVOLUTION IN 3-D, CHANGE THE VELOCITY 
Cc FROM STRMFN. FORMULA. 
IF(TYPE.LE.-10)SIGMA=DABS(Y) 
Cc 
C CALCULATE AIRSPEED FROM STREAMFN. 
UAS=(PSI(1)-PSI(2))/2.D0/RDS/SIGMA 
VAS=(PSI(3)-PSI(4))/2.D0/RDS/SIGMA 


RETURN 

END 
C 
G Se Se Ha Se oe ee SEH HH SK SSS SSS SSS SH SSH SSS SSS SSS SS SSS SHS SS SSS SS SSS sessSeS= 
Cc 


SUBROUTINE CE(YOL,CEL,CEX,PLTFAC, THICK, LAYER,DDISTN,BOTH,AT, 
.TRUPLA, FILTER,LLEFT,LRIGHT ) 


WRITTEN BY: M. OLESKIW ON:800622 LAST MODIFIED:811024 


CALCULATE AND PLOT COLLISION EFFICIENCY OF ARBITRARY AEROFOIL 
BY DETERMINING A SET OF IMPACTING TRAJECTORIES. 
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DOUBLE PRECISION D,L(31),Y0(31),CEE(5,30), THICK,FILTER, 
-PN,P,DIST,SLP,SSLP,DABS,ALPHAR, CEMAX,2ZZ,DCOS,C,DD(5), 
-LU(101),LL(101),xXU(101),xXL(101),YU(101),YL(101),Y,DBLE, 
-CEED(5,30,5),LD(31,5),YOD(31,5),LEST,DDD,BETA, VTW(2),ACW(2), 
-LSPLM, AA, AAM,BB,BBM,CC,CCM,LDRG, CEDRG,DE,LSPL,ELM, LMXCE(6), 
-ELPP,ELP,SPLPP,SPLP,.FELPP,FELP,EL,DMAX1,DB,LW(2),YOW(2), 
-DYDL(31),YOM,DL,YPL,DYDLD(31,5),VTO0T(31,5),ACOL(31,5),W(5), 
.CEF (5,30) 


REAL LPMIN, YOPMIN,LRG,SNGL,FACT(4),LP(203),FLOAT,E(2),LDL, 

. YOP (203) ,CEP(203),XPAR(4,24),YPAR(4,24),LS(33),Y0S(33),LDR, 
-PLTFAC,XP(203),XPMIN,CEPMIN,X,XLF,XRG,COS,CEV(201,31),LMX, 
-CET,CALPH.CEDEL, CEMAXE ,CETOT, EMDEL,CES(33),LBRG,FL(5),YOE(2), 
-ABS,AMAX1,CEDIF,CEB(203),LPB(203),LLEFT,LRIGHT, AMIN1,FLV 


INTEGER CEL,F,I,ICT,IRX,IRY,PX,PY.YOL,ICUD(S5),ICLO(S),Iu, 
-KK, KL ,KU,LAYER,NEU.NEL,CO,IIU,IIL,J,CEX, JU, ICTD(5),11,DDISTN, 
.K,BOTH,GRAZE,KI,M,MI,MIM,MJ,NCH,ICU,ICL,AT,NCHA, TRUPLA, TYPE, 
.NDCPX ,NDCPY,INSRT2,MP,H5,KE,NEUU,NELL,HS5D(S),JU1,JU2,FF 
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Ce 


COMMON ALPHAR/COL/LD,YOD,ICTD, ICUD, ICLD/EFF/CEED/PLTPRM/XPAR, YPAR 


./CEM/LMXCE/LG/LU,LL/SFCS/XU, YU.XL,YL/SRCH/D,IIU,ILIL/WTS/W 
./MERO4/NEU,NEL,NEUU,NELL/COLS/L.LW, YO, YOW, VTW, ACW 
./CRITS/CEDEL , EMDEL/HERMT5/H5 , H5D/TRANS3/DD,C, TYPE, J/CV/ 
-VTOT , ACOL 


IN YOL=PLOT THE YO VS L GRAPH (0, 1, OR 2) 

(2 PLOTS AT HALF PAGE SIZE) 

IN CEL=PLOT THE CE VS L GRAPH (0,1,2,3,0R 4) 

(2 AND 4 PLOT AT HALF PAGE SIZE; 3 AND 4 ALSO PLOT MEAN 
CE VS L CURVE WHEN THERE IS A DROPLET DISTRIBUTION, 

OR IF SMOOTHING HAS BEEN PERFORMED. 

IN CEX=PLOT THE CE VS X GRAPH (0, 1, OR 2) 

(2 PLOTS AT HALF PAGE SIZE) 

IN PLTFAC=FACTOR FOR SCALING ALL PLOTS. 

IN THICK=AEROFOIL THICKNESS IN %. 

LAYER=LAYER OF ACCRETION. 

IN DDISTN=NO. OF SIZES IN DROPLET DISTN. 

IN BOTH=TRAVJECTORIES FOR BOTH SFCS. (O OR 1) 

IN AT=AUTO-TRAVECTORY MODE (0 OR 1) 

IN TRUPLA=PLOT TRAJECTORIES (0 OR 1) 

IN FILTER=LENGTH OF BOXCAR FILTER(AS A FRACTION OF L RANGE OF 
LARGEST DROPLET SIZE) TO BE APPLIED TO SMOOTH CE VS L 
CURVE(S). IF O, THEN DON’T FILTER. (F) 

IN LLEFT=LEFTMOST POINT TO BE PLOTTED IN YO VS L AND CE VS L 
CURVES. IF O, DETERMINE AUTOMATICALLY. (F) 

IN LRIGHT=RIGHTMOST POINT AS ABOVE. (F) 

FORMAT(’1BETAO (MAX LOCAL CE) IS’,F5.1,’% AT A DISTANCE OF’, 
.F7.3.‘ FROM THE NOSE.’,/, ‘OTHE TOTAL COLLISION EFFICIENCY IS’, 
FS secs 

FORMAT(’OFAILURE TO CONVERGE UPON MAX CE’) 


HaNINIAIANANANANANNNANANANANNDQANANAANANAO 
i] 
2 


o) 


20 
30 FORMAT(Y GLOCAL BETA: ”,FS. 1, 

79 AeBST... MAX BETA: ,FS.1,°% MAX BETA CHANGE: “FS 1,5") 
C 

FACT(1)=1.0 

FACT(2)=0.7 

FACT(3)=1.0 


FACT(4)=0.7 
CALPH=COS(SNGL (ALPHAR) ) 
LMXCE(6)=0.DO 
C DO FOR EACH DROPLET SIZE 
DO 700 J=1,DDISTN 
ICT=2 
GRAZE=1 
C FIND DROPLET GRAZING TRAJECTORIES 
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IF(J.EQ.1.AND.LAYER.EQ. 1) 

CALL TRAJEC(TRUPLA, THICK, AT,BOTH,DDISTN, LAYER, GRAZE) 
IF(JU.NE.1.0R.LAYER.NE.1)CALL TRAJEK(LAYER, GRAZE, 1) 
GRAZE=0O 

IF(BOTH.EQ.1)GOTO 130 


C FOR SYMMETRICAL CASE, CREATE SYMMETRICAL VECTORS. 
L(1)=-L(2) 
YO(1)=-YO(2) 
VIOT C4: J)]eVTOT(2,J) 
ACOL(1,JU)=-ACOL(2,u) 
130 LDRG=L(2)-L(1) 
LS(1)=SNGL(L(1)) 
LS(2)=SNGL(L(2)) 
LRG=LS(2)-LS(1) 
FL(JU)=SNGL(FILTER)*LRG/2.0 
C TOTAL COLLISION EFFICIENCY. 
CET=SNGL((YO(2)-YO(1))/THICK)*CALPH*1.E4 
C PLOTTING POINTS INL. 
DOt TOU KT EY, 201 
LP(KI)=LS(1)+FLOAT(KI-1)/200.0*LRG 
710 CONTINUE 
C TARGET DISTANCE IN L BETWEEN COLLISION PTS. OF 
C PAIRS OF TRAJECTORIES. 
(G 2 9K KK KK OK ok OK ok KK OK ok kK OK ok ok ok ok OK OK ok KK ok ake ok ook ok ok oe ok ok ak 3K ok ok ok ok ok ok ok ok ok ok ok ok ok of 3k oe ok ok ok ok ok ok ok ok 
DL=LDRG/5 .D2 
C 3K KK KK eK ok ok OK OK KK OR OE KK OOK OK ok ke ok 2K ok ok ok ok ok ak oe ok OK ok ok ok 2K 2 ok ok ok OK x 9K OK OK OK 2K ok Ko OK ok 2k Kook ok ok ok ok ok ok ok ok 
IF(DL.LT.2.D-4)DL=2.D-4 
(G 3 OK KOK OK oe KKK OK KOK OR KK OK KOK OK OOK OK oe 3K ie eK kc ok oe ak OK ok ook ok OK OK OK OK OK KOK 2K ok 2 x KK ok KK ok ok Kok ok ok ok ok ok Ok 
C FIT HERMITE CUBIC POLYNOMIAL TO YO AND L. 
CALL HERMIT(L(1)\L(2), YO(1),Y0(2),0.00,0.D0, CEE(3, 1), 
. CERGQ4)<CEECAEA)) 
C FIND YO’S FOR FIRST TRAJECTORY PAIR. 
CK OK OE KK KK Eo ok oR a ok ke ok ake ok oie ate ake aie oe oe ka a oe ake ok ak oo ak ok ok ok ake 2 ak KK ok 
IF (BOTH. EQ.0)DDD=0.56D0*LDRG 
IF (BOTH.EQ. 1)DDD=0.25D0*LDRG 
(e OK KKK KK OK ko ok ok ok ok ok KK KK ok ok ok ok ok ok ok ko ok ok ok oi ok ok a OK kK KK Ko oo ok oie xo ook 3 ok 2 ok oi ok ok OK ok ok ok ok ok 
DYDL(2)=(3.DO*CEE(3, 1) *DDD+2.DO*CEE(2,1))*DDD+CEE(1, 1) 
IF (BOTH.EQ.0)YOM=0. 44D0*YO(1)+0.56D0*YO(2) 
IF (BOTH.EQ. 1) YOM=O. 75D0*YO(1)+0.25D0*YO(2) 
C DISTANCE IN YO BETWEEN PAIR OF TRAJECTORIES. 


Cc 


YPL=DYDL(2)*DL 


KOKO OR OR ORO RO OK RE OR RK ook KK ok kK a OK aK aK akg a ok 2k a kK ok kok ie ok ak ake ok oka ok ak ok of ake ak ok 


IF(YPL.LT.4.D-5)YPL=4.D-5 
SHOR OK KK OK KK ok ok kok sk otk kok ok ak kok ok ok ak ok ok ok ak kk a ok ak ok ok ak ok ok ak ok ak ok oe ae ek ao ae ok oe eo aie oi Kok ok oe ok 

NCH= 1 
SHIFT TO MAKE ROOM FOR 1ST TRAJECTORY. 

IF(BOTH.EQ.0)GOTO 197 

L(3)=L(2) 

LS€3) =tS(2) 

YO(3)=YO(2) 

VTOT(3,JU)=VTOT(2,u) 

ACOL(3,JU)=ACOL(2,U) 

INSRT2=0 

M=O 

ICT=3 

MIM=1 

DYDL(1)=0.DO 

DYDL(3)=0.D0 


GOTO 190 
SHIFT TO MAKE ROOM FOR 1ST TWO TRAJECTORIES. 


197 L(4)=L(2) 


LS(4)=LS(2) 
YO(4)=YO(2) 
VTOT(4,JU)=VTOT(2,U) 
ACOL(4,U)=ACOL(2,u) 
INSRT2=1 
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CE 


M=O 
1C1T=4 
MIM=2 
DYDL(1)=0.DO0 
DYDL(4)=0.D0 
C TRAJECTORY PAIR - YO VALUES: 
190 YOW(1)=YOM-YPL/2.DO0 
YOW(2)=YOM+YPL/2.D0 
YO(MIM+1)=YOM 
CALL TRAJEK(LAYER,GRAZE, 1) 
CALL TRAJEK(LAYER,GRAZE,2) 
L(MIM+1)=(LW(1)+LW(2))/2.D0 
VTOT(MIM+41,U)=(VTW(1)+VTW(2))/2.D0 
ACOL(MIM+1,JU)=(ACW(1)4+ACW(2))/2.D0 
C CALCULATE COLLISION EFFICIENCY FOR TRAJECTORY PAIR. 
DYDL(MIM+1)=(YOW(2)-YOW(1))/(LW(2)-LW(1)) 
IF (DYDL(MIM+1).LT.O.DO)RETURN : 
C FIT NEW HERMITE CUBIC POLYNOMIAL TO FIRST & SECOND 
Cc INTERVALS CREATED IN YO AND L VECTORS. 
IF(BOTH.EQ.0.AND.M.EQ.0)GOTO 280 
CALL HERMIT(L(MIM),L(MIM+1),YO(MIM), YO(MIM+1), 
. DYDL(MIM),DYDL(MIM+1),CEE(3,MIM),CEE(2,MIM),CEE(1,MIM) ) 
280 CALL HERMIT(L(MIM+1),L(MIM+2), YO(MIM+1),YO(MIM+2), 
DYDL(MIM+1),DYDL(MIM+2),CEE(3,MIM+1), 
CEE(2,MIM+1),CEE(1,MIM+1)) 
LS(MIM+1)=SNGL(L(MIM+1)) 
IF(INSRT2.EQ.0)GOTO 290 
C CREATE SYMMETRICAL VECTORS FOR SYMMETRICAL SITUATION. 
L(NCH+1)=-L(MIM+14) 
LS(NCH+1)=-LS(MIM+1) 
YO(NCH+1)=-YO(MIM+1 ) 
VTOT(NCH+1,JU)=VTOT(MIM+1,J) 
ACOL(NCH+1,U)=-ACOL(MIM+1,U) 
DYDL(NCH+1)=DYDL(MIM+1) 
CALL HERMIT(L(NCH),L(NCH+1),YO(NCH) , YOCNCH+1), 
DYDL (NCH) ,DYDL(NCH+1),CEE(3,NCH),CEE(2,NCH),CEE(1,NCH)) 
CALL HERMIT(L(NCH+1),L(NCH+2), YO(NCH+1), YO(NCH+2), 
DYDL(NCH+1),DYDL(NCH+2) ,CEE(3,NCH+1),CEE(2,NCH+1),CEE(1,NCH+1) ) 


290 MP=M 
M=ICT-1 
CEMAXE=0.0 
CEDIF=0.0 
CETOT=0.0 
I=1 
F=4 
c 
C FIND CE CURVE.TOTAL CE, AND MAX. VALUE OF CE 
DO 715 KI=1,201 


720 IF(LP(KI).LE.LS(F+1))GOTO 730 
F=F+1 
GOTO 720 

730 DB=DBLE(LP(KI)-LS(F)) 


CEV(KI,M)=SNGL((3.D00*CEE(3,F)*DB 
+2.DO*CEE(2,F))*DB+CEE(1,F))*100.0*CALPH 
CETOT=CETOT+CEV(KI,M) 

CEMAXE =AMAX 1(CEMAXE,CEV(KI,M)) 

IF (CEMAXE.EQ.CEV(KI,M) )PN=DBLE(LP(KI) ) 

IF (MP .NE.O)CEDIF=AMAX1(CEDIF,ABS(CEV(KI,M)-CEV(KI,MP))) 


Was CONTINUE 
CETOT=CETOT/SNGL (THICK )/2.0*LRG 


Cc FOR FOR IORI OO OR II I OR aR I RI I aE SE IE a ak i aE Rak ae a fe kk 


BETA=DYDL(MIM+1)*1.D2*CALPH 


C ROR OR ROR OR OR ORO OR IORI IOI IOI IG ACI orf ok kek ak ae aE ak kok ae akc ak ke ae ak ok ae ak ake ke a ak 


WRITE(6.30)BETA, CEMAXE , CEDIF 
WRITE(7,30)BETA, CEMAXE , CEDIF 
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CE 


CEDRG=2 .DO*DBLE (CEMAXE/100.0/CALPH) 
IF(ICT.GT.5*(2-BOTH) .AND.CEDIF/CEMAXE.LT.CEDEL/ 100.0 
.AND .ABS(CETOT-CET)/CET.LT.EMDEL/100.0)GOTO 180 


LSPLM=0.DO 


C FIND FARTHEST APART PTS. ON CE VS L CURVE. 


op I) 


DO 800 MI=1,M 
IF(BOTH.EQ.0.AND.L(MI+1).LT.O.DO)GOTO 800 


CREATE NORMALIZED CUBIC HERMITE POLYNOMIAL COEFFICIENTS 
FOR SLOPE CF CURVE® 


AA=0.DO 
BB=3 .DO*CEE(3,MI )*LDRG*LDRG/CEDRG 
CC=2 .DO*CEE(2,MI)*LDRG/CEDRG 


C FIND LENGTH OF CUBIC POLYNOMIAL SEGMENT. 


DE=(L(MI+14)-L(MI))/LDRG 
IF(DE.LT.1.D-2)GOTO 800 

TECCECMI 9 RLE 1997 CECICT)=C(1))-GT.0.95D0 
.AND.L(MI+1).GT.PN)GOTO 800 

CALL SFCLEN(DE,LSPL,AA,BB,CC) 


C LOCATE LONGEST SEGMENT ON CE VS L CURVE. 


800 


LSPLM=DMAX1(LSPLM,LSPL) 
IF(LSPL.LT.LSPLM)GOTO 800 
ELM=DE 

MIM=MI 

AAM=AA 

BBM=BB 

CCM=CC 

CONTINUE 


C FIND MIDPOINT TRAJECTORY: 


880 


870 


ELPP=ELM/3.DO 

ELP=ELM*2.D0/3.D0 

CALL SFCLEN(ELPP,SPLPP,AAM, BBM, CCM) 
FELPP=LSPLM/2.DO-SPLPP 

CALL SFCLEN(ELP,SPLP,AAM,BBM,CCM) 
FELP=LSPLM/2.DO-SPLP 

IF (DABS(FELP).LT.LSPLM/20.D0)GOTO 870 
EL=ELP-FELP*(ELP-ELPP)/(FELP-FELPP) 
ELPP=ELP 

ELP=EL 

FELPP=FELP 

GOTO 880 

DDD=ELP*LDRG 


C ESTIMATED NEW VALUE OF L FOR INSERTION. 


LEST=DDD+L(MIM) 


C SHIFT VECTORS TO MAKE ROOM FOR NEW TRAJECTORIES. 


815 
810 


NCH=ICT-MIM 
DO 810 MI=1,NCH 
MJ=ICT+1-MI 
L(Md+14)=L (MU) 
YO(MJ+1)=YO(Md) 

DYDL (MuU+1)=DYDL (Mu) 
LS(MJ+1)=LS(MJ) 
VTOT(MJ+1,JU)=VTOT(MJ,J) 
ACOL(MU+1,U)=ACOL(Mu,JU) 
IF(MI.EQ@.1)GOTO 810 
pO 815 I=1,3 
CEE(1I,MJU+1)=CEE(I,MUJ) 
CONT INUE 


CONTINUE 
YOM=((CEE(3,MIM) *DDD+CEE(2,MIM) ) *DDD+CEE(1,MIM) )*DDD+YO(MIM) 


IF (BOTH.EQ.O.AND.M.EQ.3)YOM=(YO(3)+Y0(4))/2.D0 
ICT=ICT+1 


INSRT2=1 
IF (BOTH.EOQ.1.0R.DABS(LEST).LT.LDRG/2.D2)INSRT2=0 


IF(INSRT2.EQ.0)GOTO 830 


C INSERT ANOTHER TRAJECTORY PAIR FOR SYMMETRICAL CASES. 
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169 
170 
lief 
iP 
173 
174 
tiwS 
176 
LT 
178 
173 
180 
181 
182 
183 
184 
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186 
187 
188 


189 
190 
USK 
192 
193 
194 
195 
196 
197 
198 
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200 
201 
202 
203 
204 
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206 
207 
208 
209 
210 


211 
212 
213 
214 
Zaki 
216 
217 
218 
219 
220 
221 
222 
223 


224 
225 


Cc 


2:15 


GE 


NCHA=MIM+ { 
DO 820 MI=1,NCHA 
MJ=ICT+1-MI 
L(MJ+1)=L(MuJ) 
YO(MuJ+1)=YO(Md ) 
DYDL(MJ+1)=DYDL( MJ) 
LS(MJU+1)=LS(Mu) 
VTOT (MJ+1,JU)=VTOT(MU,J) 
ACOL(MJ+1,JU)=ACOL (Mu, J) 
IF(MI.EQ.1)GOTO 820 
DO, 225.1 51,3 
CEE(1,MuU+1)=CEE(I,MJ) 
CONTINUE 
CONTINUE 
MIM=MIM+4 
ICT=iCT+A 
DYDL(MIM+1)=(3.DO*CEE(3,MIM)*DDD 
+2.DO0*CEE(2,MIM) )*DDD+CEE(1,MIM) 
YPL=DYDL (MIM+1)*DL 
IF(YPL.LT.4.D-5)YPL=4.D-5 
GOTO 190 


CabiNDEBEGAOs (MAX VALUE NOP MEOGAID ICE) 
C USING THE NEWTON-RAPHSON ALGORITHM. 


180 


183 


184 


182 


185 


187 
186 
181 
520 


H5D0(U)=H5 
IF(H5.EQ.0)GOTO 181 
CEDIF=0.0 
CALL HERM5(L,YO,DYDL,ICT,CEF) 
FF=14 
DO A82 Kll=4, 201 
IF(LP(KI).LE.LS(FF+1))GOTO 184 
FF=FF+1 
GOTO 183 
DB=DBLE(LP(KI)-LS(FF)) 
CEDIF=AMAX1(CEDIF,ABS(CEV(KI,M)- 
SNGL((((5.DO*CEF(5,FF)*DB+4.DO*CEF(4,FF))*DB 
+3.DO*CEF(3,FF))*DB+2.DO*CEF(2,FF))*DB 
+CEF(1.FF))*100.0*CALPH) ) 
CONTINUE 
IF (CEDIF/CEMAXE.LT.O.08)GOTO 185 
H5D(JU)=0 
GOTO 181 
DO 186 J1=1,30 
DO. 487, 32=1,5 
CEE(JU2,JU1)=CEF(JU2,uU1) 
CONTINUE 
CONTINUE 
JJ=0 
P=PN 


C FIND CE VS L SLOPE AND ITS SLOPE. 


505 


500 


510 


C SLOPE 


IF(P.GT.L(I))GOTO 500 
I=I-14 
IF(I.GE.1)GOTO 505 
P=) 
I=1 
GOTO 510 
IF(P.LE.L(1I+1))GOTO 510 
I=I+1 
IF(I.LT.ICT)GOTO 500 
1zICT-1 
P=L(ICT) 
DIST=P-L(I) aa 
.EQ.1)GOTO 
ere aty ITS SLOPE FOR HERMITE CUBIC POLYNOMIAL. 
SSLP=6.DO*CEE(3,1) 
SLP=6 .DO*CEE(3,1)*DIST+2.DO*CEE(2,1) 
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226 


CxPaT 


228 


216 


CE 
GOTO 51,7, 
C SLOPE OF CE CURVE AND ITS SLOPE FOR HERMITE QUINTIC SPLINE. 


515 SLP=((20.DO*CEE(5,1)*DIST+12.D0*CEE(4,1))*DIST+6.DO*CEE(3,1) 
4 J)ADISI+2.D0*CEE(2,1) 
SSLP=(60.DO*CEE(5,1)*DIST+24.DO*CEE(4,1))*DIST+6.DO*CEE(3,1) 
517 PN=P-SLP/SSLP 
IF (DABS(P-PN) .LT.LORG/5.D2)GOTO 512 
JJ=JU+1 
IF(JJU.LT.100)GOTO 520 
WRITE(6,20) 
WRITE(7,20) 
GOTO 560 
512 IF (H5D(JU).EO.0)CEMAX=((3.D0*CEE(3,1)*DIST+2.DO*CEE(2,1))* 
DIST+CEE(1,1))*1.D2*DCOS(ALPHAR) 
IF(HSD(JU) .EQ. 1)CEMAX=((((5.D0*CEE(5,1)*DIST+4.DO*CEE(4,1))*DIST 
+3.DO*CEE(3,1))*DIST+2.DO0*CEE(2,1))*DIST+CEE(1,1))*1.D2 
*DCOS(ALPHAR ) 
LMXCE(JU)=P 
WRITE(6, 10)CEMAX,P,CET 
WRITE(7,10)CEMAX,P,CET 
560 ICU=0 
1ChLie6 
c 
C CREATE DISTRIBUTED SPLINE COEFF. MATRIX. 
KE=3+2*H5D(uJ) 
DO S70: bal LCT 
IF(I.EQ.ICT)GOTO 581 
DO 580 K=1,KE 
CEED(K,1,UJU)=CEE(K,1) 
580 CONTINUE 
581 IF(L(I).LT.O.DO)ICL=ICL+1 
IF(L(1).GE.0.DO)ICU=ICU+1 
LDO(I,J)=L(I) 
YOD(I,J)=YO(I) 
YOS(I)=SNGL(YO(I)) 
DYDLD(1I,U)=DYDL(1) 
570 CONT INUE 
TCTD (a ) SECT 
ICUD(J)=ICU 
ICLD(J)=ICL 
C FIND PROBABLE LOCATION OF PEAK OF MEAN CE VS L CURVE. 
LMXCE(6)=LMXCE(6)+LMXCE(J)*W(U) 
IF(YOL.EQ.0O.AND.CEL.EQ.0)GOTO 700 
IF(JU.GT.1)GOTO 170 
e 
C DETERMINE PLOTTING PARAMETERS. 
LRIGHT=AMAX1(LRIGHT,LS(ICT)+FL(1)) 
LLEFT=AMIN1(LLEFT,LS(1)-FL(1)) 
IF(LAYER.EQ@.1)CALL PLTSZ(LLEFT,LRIGHT, YOS(1),YOS(ICT), 
LPMIN, YOPMIN,PX,PY,IRX,IRY,NDCPX,NDCPY ) 
IF(LAYER.GT.1)CALL PLTSZE(LLEFT,LRIGHT, YOS(1),YOS(ICT), 
LPMIN, YOPMIN,PX,PY,IRX,IRY,NDCPX,NDCPY ) 
LP(202)=LPMIN 
LP(203)=XPAR(4.IRX)/10.0**PX 
CALL NEWPEN( 1) 
IF(YOL.EQ.0)GOTO 700 
YOP (202 )=YOPMIN 
YOP(203)=YPAR(4,IRY)/10.0**PY 
© PLOT «VO; VS -LsAXES 
CALL FACTOR(FACT(YOL)*PLTFAC) 
CALL ORIGIN(999,20.0,13.0,5.0,5.0) 
CALL AX2EP(XPAR(3,IRX),3,.NDCPX,0,1.0) 
CALL AX1IS2(0.0.0.0, ’L/C’,.-3.XPAR(2,IRX),0.0,LPMIN, XPAR(4, IRX 


)/10.0**PX,XPAR(3,IRX)) 
CALL AXIS2(XPAR(2,IRX),0.0, ’ *,-1,-YPAR(2,IRY),90.0,1.0,1.0,YPAR 
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280 
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Cc 


217, 


CE 


CALL AX2EP(YPAR(3,IRY),3,NDCPY,0,1.1) 

CALL AXIS2(0.0,0.0,’YO/C’ ,4, YPAR(2,IRY),90.0, YOPMIN, YPAR(4, IRY)/ 
10.0**PY,-YPAR(3,IRY)) 

CALL AXIS2(0.0,YPAR(2,IRY),’ ’,1,-XPAR(2,IRX),0.0,1.,1.,XPAR 


.(3,IRX)) 


IF(YOL.EQ.0)GOTO 700 


CAREOT THETYO VSeE POINTS 


120 


110 


100 


LS(ICT+1)=LP(202) 

LS(ICT+2)=LP(203) 

YOS(ICT+14)=YOP( 202) 

YOS(ICT+2)=YOP(203) 

CALL LINEP(O. 15) 

CALL LINE(LS,YOS,ICT,1,-1,uU-1) 

Fe 
DO 100 I=1,201 
IF(LP(I).LE.LS(F+1))GOTO 110 
FoF+4 
GOTO 120 
DB=DBLE(LP(I)-LS(F)) 
IF (H5D(JU).EQ.0)YOP(I)=SNGL(((CEED(3,F,JU)*DB+CEED(2,F,U))*DB 
+CEED(1,F,JU))*DB)+YOS(F) 
IF(H5D(JU).EQ.1)YOP( I )=SNGL(((((CEED(5,F,J)*DB+CEED(4,F,JU))*DB 
+CEED(3,F,JU))*DB+CEED(2,F,U))*DB+CEED(1,F,JU))*DB)+YOS(F) 
CONTINUE 


CeREOTe Mie ORV SWISS INE. 


700 
Cc 


CAGE TENE QLE YOR -207,,.1,0,.1) 
CONT INUE 


IF(CEL.EQ.0)GOTO 300 
J=1 


CEPCOTRELIEICESV SUE AXES: 


250 


240 


CAUL “FACTOR CFACT (CEL )*PLTFAC) 

CALL ORIGIN(999,20.0,13.0,5.0,5.0) 

CALL AX2EP(XPAR(3,IRX),3,NDCPX,0,1.0) 

CALL AXIS2(0.0,0.0, ‘L/C’ ,-3, XPAR(2,IRX),0.0,LPMIN, XPAR(4,IRX)/ 


.10.0**PX, XPAR(3,IRX)) 


CAEL BAXES2(XPAR(2, IRX),0.0,° ‘.-1,-YPAR(2,10),90.0,0.0, 1.0, YPAR(3, 


»10)) 


CALL AX2EP(YPAR(3,10),3,0,0,1.1) 
CALL "AXIS2(0.0/0.0, (COLLISION EFFICIENCY IN %4’,25;YPAR(2, 10), 


.90.0,0.0, YPAR(4,10)*10.0,-YPAR(3,10)) 


CALL TAX ES2(O JO EYRAR (2610) 0784) 1.2080 {020/127 12 9XPARCAEIRX) } 
CEP(202)=0.0 
CEP(203)=YPAR(4,10)*10.0 
CEB(202)=0.0 
CE8(203)=CEP(203) 
LPB(202)=LP(202) 
LPB(203)=LP(203) 
ICT#ICTD(G) 
pOW240 -f=1,1CT 
LS(I)=SNGL(LD(I,U)) 
CES(1)=SNGL(DYDLD(I,JU)*1.02)*CALPH 
CONTINUE 
CES(ICT+1)=CEP(202) 
CES(ICT+2)=CEP(203) 
LS(ICT+1)=LP(202) 
LS(ICT+2)=LP(203) 
LRG=LS(ICT)-LS(1) 


C FIND THE PLOTTING POINTS FOR THE MEAN AND/OR SMOOTHED CURVE. 


235 


IF(JU.NE.1.0R. (FILTER.EQ.0.DO.AND.DDISTN.EQ. 1) )GOTO 225 
LBRG=LRG+FL(JU)*2.0 
LPB(1)=LS(1)-FL(U) 


DORZSSR1 =F 203 
LPB(1)=LPB(1)+FLOAT(I-1)/200.0*LBRG 


CONTINUE 
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CE 


225 F=1 
CRBC OT ATER CER VSM OLNTSE 
CALL LINEP(O. 15) 
CALL WINE QUS. CES: FCT. 1,-1,U-1) 
DOV2HO MEAT 2ON 
LP(I)=LS(1)+FLOAT(I-1)/200.0*LRG 


230 IF(LP(1).LE.LS(F+1))GOTO 220 
F=F+4 
GOTO 230 

220 DB=DBLE(LP(I)-LS(F)) 


IF(H5D(JU).EQ.0)CEP(1)=SNGL((3.DO*CEED(3,F,U)*DB 
+2.DO*CEED(2,F,JU))*DB+CEED(1,F,JU))*100.0*CALPH 
IF(HSD(JU). EQ. 1)CEP(I )=SNGL((((5.DO*CEED(5,F,JU)*DB 
+4.DO*CEED(4,F,JU))*DB+3.D0*CEED(3,F,JU))*DB 
. +2.DO*CEED(2,F,JU))*DB+CEED(1,F,U))*100.0*CALPH 
210 CONTINUE 
C PLOT THE CE VS L LINE. 
IF((FILTER.NE.O.DO.OR.DDISTN.GT.1).AND.(CEL.EQ.3.0R.CEL.EQ.4)) 
.CALL NEWPEN(3) 
CALL LINE(LP,CEP,201,1,0,1) 
J=J+1 
IF(U.LE.DDISTN)GOTO 250 
IF(CEL.NE.3.AND.CEL.NE.4)GOTO 300 
Cc 
C PLOT THE MEAN AND/OR SMOOTHED CE VS L CURVE. 
DO 990 I=1,201 
CEB(I)=0.0 
990 CONTINUE 
IF(FILTER.NE.O.DO)GOTO 1000 
IF(DDISTN.LE.1)GOTO 300 
DO 900 J=1,DDISTN 
F=14 
ICT=ICTD( J) 
DOUS10: f=46201 
IF(LPB(I).LT.SNGL(LD(1,JU)))GOTO 910 
IF(LPB(I).GT.SNGL(LD(ICT,J)))GOTO 910 


930 IF(LPB(1).LE.SNGL(LD(F+1,U)))GOTO 920 
F=F+4 
GOTO 930 

920 DB=DBLE(LPB(1))-LD(F,uU) 


IF(HS5D(U).EQ.0)CEB(I )=CEB(1I)+SNGL(W(JU)*((3.D0*CEED(3,F,JU)*DB 
+2.DO*CEED(2,F,JU))*DB+CEED(1,F,JU)))*100.0*CALPH 
IF(H5D(U).EQ.1)CEB(I )=CEB(1)+SNGL(W(JU)*((((5.DO*CEED(5,F,JU)*DB 
+4, DO*CEED(4,F,U))*DB+3.DO*CEED(3,F,U))*DB 

+2 ,.DO*CEED(2,F,JU))*DB+CEED(1,F,JU)))*100.0*CALPH 


910 CONTINUE 
9300 CONTINUE 
GOTO 1100 


1000 DO 1010 J=i,DDISTN 

ICT=ICTD(uU) 

F=4 

LDL=SNGL(LD(1,U)) 

LDR=SNGL(LD(ICT,U)) 

LMX=SNGL (LMXCE (UJ) ) 
DO 1020 Iv=1; 201 
IF(LPB(IJU).GE.LMX)GOTO 1110 
IF(LPB(IJU).LE.LDL)GOTO 1120 


G ERROR OK RIOR ORR ICRI RI RR oak 2 2k Rk ok aR a ak aK 2k 2 ake akc ak ae a ie a ke ake ai oe a kc 2k ie a ok 


FLV=FL(JU)-O.9*FL(U)/(LMX-LDL)*(LPB(IU)-LDL) 

Cc SRO RR Ok RR kr RoR fog ak ak koko ak ak kak ke ak ake aie ae akc ie ok ke ke ai ake aioe ai a ae ic oi a ake ea 2 fe 2 eo oe 
GOTO 1200 

1110 IF(LPB(IU).GE.LDR)GOTO 1120 


G eK KOK KK oR oR ok ok kok ok kok Kok ok ok ok oe ak ok ok aK Kk eK KK 


FLV=O. 1*FL(U)+0.9*FL(JU)/(LDR-LMX ) *(LPB( IU) -LMX) 


Se I ROO IO IE aR i dead ak ak ic ic teak a ae de ak ak ak ae ae ae aie a ak ai ake ake kee ak a ae a oe ae 2 


GOTO 1200 
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1040 


1050 


1060 
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1030 
1020 
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Cc 
300 


600 


FLV=FL(J) 

E(1)=LPB(IJU)-FLV 

E(2)=LPB(IJU)+FLV 
DOu41O30'-I =415 2 
IF(E(1I).GT.SNGL(LD(1,U)))GOTO 1040 
YOE(1I)=SNGL(YOD(1,uU)) 
GOTO 1030 
IF(E(1I).LT.SNGL(LD(ICT,JU)))GOTO 1050 
YOE(I)=SNGL(YOD(ICT,uJ)) 
GOTO 1030 
IF(E(1I).GT.SNGL(LD(F,U)))GOTO 1060 
F=F-4 
GOTO 1050 
IF(E(I).LE.SNGL(LD(F+1,U)))GOTO 1070 
F=F+4 
GOTO 1060 
DB=OBLE(E(I))-LD(F,uU) 


Ze 


CE 


IF(HSD(JU).EQ.0)YOE(I )=SNGL(((CEED(3,F,JU)*DB+CEED(2,F,JU))*DB 


+CEEDGISF..w ))*DE+YOD(F.JU)) 

IF(H5D(JU).£Q.1)YOE(1)=SNGL(((((CEED(5,F,JU)*DB+ 

CEED(4,F,U))*DB+CEED(3,F,JU))*DB+CEED(2,F,JU))*DB 

+CEED(1,F,JU))*DB+YOD(F,uU)) 

CONTINUE 
CEB(IU)=CEB(IJU)+(YOE(2)-YOE(1))/FLV*50.O0*CALPH*SNGL(W(J) ) 
CONTINUE 

CONTINUE 
CALL NEWPEN( 1) 
CALL LINE(LPB,CEB,201,1,0,1) 


IF(CEX.EQ.0.OR.LAYER.GT.1)RETURN 
J=1 
ICT=ICTD(U) 


C FIND RANGE OF X 


610 


310 


320 


330 
340 


360 
370 


390 
380 


410 


DO 610 I=1,ICT 
tos lyd)) 
CONTINUE 
DO 310 KL=1,NEL 
IF(LL(KL).LE.L(1))GOTO 320 
CONTINUE 
DO 330 KU=1,NEU 
IF(LU(KU).GT.L(ICT))GOTO 340 
CONTINUE 
XRG=SNGL(XL(KL)+XU(KU) ) 
XLF=SNGL(-XU(KU) ) 
CO=0 
I1=ICT-1 
TIL=1 
IIU=NEU 
DO 350 KK=1,201 
X=XLF+XRG/ 200. *FLOAT(KK-1) 
XP (KK) =X 
IF(X.GT.O.)GOTO 360 
CALL SFC(DBLE(-X),Y,1,1,22) 
GOTO 370 
CALL SFC(DBLE(X),.Y,0,1.22) 
IF(CO.EQ.1)GOTO 380 
TF(Z2Z.GT.LCICT).)GOTO 380 
LECZZ<¢GTLUGI1) GOTO 410 
ll=lI-1 
IF(I1.EQ@.0)GOTO 390 
GOTO 370 
co=1 
CEP(KK)=0.0 
GOTO 350 


DB=ZZ-L(11) 
TF (HSD(U) .EQ.0)CEP(KK)=SNGL((3.00*CEED(3,11,J)*DB 
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+2.DO*CEED(2,11,JU))*DB+CEED(1,II,U))*100.0*CALPH 
IF(H5D(J).EQ. 1)CEP(KK)=SNGL((((5.DO*CEED(5,II,JU)*DB 
+4.DO*CEED(4,11,JU))*DB+3.DO*CEED(3,II,U))*DB 
+2.DO*CEED(2,11,JU))*DB+CEED(1,1I,U))*100.0*CALPH 
CONTINUE 

IF(U.GT.1)GOTO'620 


C DETERMINE PLOTTING PARAMETERS. 


CALL PLTSZE(XP(1),XP(201),0.0,99.9,XPMIN, CEPMIN, PX,PY,IRX,IRY, 
.NDCPX,NDCPY ) 

XP(202)=XPMIN 

XP (203 )=XPAR(4,IRX)/10.0**PX 

CEP(202)=0.0 

CEP(203)=YPAR(4,10)*10.0 


CEPEOTTCEVSEX AXES 


CALL FACTOR(FACT(CEX)*PLTFAC) 

CALL ORIGIN(999,20.0,13.0,5.0.5.0) 

CALL AX2EP(XPAR(3,IRX),3,NDCPX,0,1.0) 

CALL AXIS2(0.0,0.0, ’X/C’ ,-3,XPAR(2,IRX),0.0, XPMIN, XPAR(4, IRX) 
./10.0**PX ,XPAR(3,IRX)) 

as AXIS2(XPAR(2,IRX),0.0,’ ’,-1,-YPAR(2,10),90.0,0.0,1.0, YPAR(3, 
GALL AXQER(YPARI 3.10), 3.0.0.1. 7) 

CALL AXIS2(0.0,0.0, COLLISION EFFICIENCY IN %’,25,YPAR(2, 10), 
.90.0,0.0, YPAR(4, 10)*10.0, -YPAR(3, 10)) 

GALE. AXTS2(0.0, VPARC2310) .° 7,.1.-20:050-0, 12,1), XPARLS:, IRX)) 


CyPEOT SIRE IGEIVS XEGrNEx 


620 


ADO Oe 


Q 


CALI GINEGXPeGEP s2Oted Ort) 
J=J+1 
IF(U.LE.DDISTN)GOTO 600 


RETURN 
END 


SUBROUTINE COLVEL(DDISTN) 


WRITTEN BY: M. OLESKIW ON:810225 LAST MODIFIED:810506 


INTERPOLATE DROPLET IMPACT VELOCITY ALONG AEROFOIL SFC. 


DOUBLE PRECISION BPAR(4),LD(31,5),Y0D(31,5), 
.A(31),.V(31),L(31),COEFA(30,3),COEFV(30,3),CFA(3,30,5), 
.CFV(3,30,5),VTOT(31,5),ACOL(31,5) 

INTEGER 1.JU,DDISTN, ICT. ICTD(S),1CUD(S),1CLO(S),1ER,K 


COMMON /CV/VTOT,ACOL/COL/LD,YOD,ICTD,ICUD,ICLD/CEV/CFV,CFA 


C 
C IN DDISTN=NO. OF SIZES IN DROPLET DISTRIBUTION. 
Cc 
Cc 


CUBIC SPLINE END PARAMETERS (FREE SPLINE) 


100 


DO 100 I=1,4 
BPAR(I)=0.DO 
CONTINUE 

DO 200 J=1,DDISTN 
ICT=ICTD(u) 


C CREATE SINGLE VECTORS FOR U AND V COMPONENTS, 


C 


210 


AND IMPACT LOCATION LENGTHS. 


DOND10. ag pict 

V(I)=VTOT(I,J) 

ACI) =ACOR(CDe U) 

L¢i)=LDCG1,u) 

CONT INUE 
IF(ICT.GE.4)GOTO 300 
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c 
C FIT CUBIC SPLINES FOR IMPACT VELOCITY AND ANGLE. 
CALL ICSICU(L,V.ICT,BPAR,COEFV,30,IER) 
CALL ICSICU(L,A,ICT,BPAR,COEFA,30,IER) 
GOTOR SLO 
Cc 
C CALCULATE QUASI-HERMITE CUBIC POLYNOMIALS FOR IMPACT 
Cc VELOCITY AND ANGLE. 
300 CALL IQHSCU(L.V,ICT,COEFV.30,IER) 
CALL IOQHSCU(L,A,ICT.COEFA,30,IER) 


c 
C CREATE DISTRIBUTED COEFFICIENT MATRICES. 
310 DO 220 ft2=1,ICT 
DO 230 K=1,3 
CFA(K,1I,JU)=COEFA(I,K) 
CFV(K,1I,JU)=COEFV(I,K) 
230 CONTINUE 
220 CONTINUE 
200 CONTINUE 
RETURN 
END 
Cc 
(ee SSSSrereeseeSeerreS2rSSS22SS S53 S2SSSSSSSSSSSSSSHISSESSHESSseeES222oxqx&see2qoqoqoz2s22=°=2°= 
Cc 


SUBROUTINE COORDS(TYPE,T,THETA,XU,XL,YU,YL) 
Cc 
C WRITTEN BY: M. OLESKIW ON:790828 LAST MODIFIED:810725 
C 
DOUBLE PRECISION X,YU,YL,DSORT,C,1T,THETA,DCOS,EIM2,EIM1, 


BED, DAS Sam ce DSn NE Wire ARAGEHAR. > LOM ne Er RE = THEA Moa.cr 
-JTIM1,JTIM2,M,P,DFLOAT,K1,XU,XL,YT,DATAN,PHI,YURR,DTAN, 


.JTHICK 
C 

INTEGER TYPE,ATYPE,IABS,I,IER,MEAN,MOD,MM 
Cc 

COMMON ALPHAR,PI/JOUK1/A,B,EI 
c 


EXTERNAL JTHICK 


Oo FORMAT( ’OFAILURE TO FIND CORRECT PARAMETERS FOR AEROFOIL’ ) 


IN TYPE=AEROFOIL TYPE 

IN T=AEROFOIL THICKNESS IN PERCENT 
THETA=ANGLE FROM NEGATIVE X AXIS 
OUT X=X-COORD. OF AEROFOIL SFC. 


OUT YU= 
OUT YL= UPPER & LOWER Y-COORDS. OF AEROFOIL SFC. 


QO OO Oe OO A = © 
mH 
a 


ATYPE=IABS(TYPE) 

IF(ATYPE.EQ.1)GOTO 101 
IF(ATYPE.EQ.2.O0R.ATYPE.EQ.3)GOTO 102 
IF(TYPE.EQ.-10)GOTO 103 


GOTO 100 
c 
ENTRY KOORDS( MEAN) 
c 
C IN MEAN=DESIGNATION FOR NACA MEAN LINE. 
o 
C DETERMINE PARAMETERS FOR MEAN LINES OF NACA AEROFOILS. 
IF(MEAN.GE.100)GOTO 200 
c 
C FOUR DIGIT FAMILY OF NACA AEROFOILS. 


M=DFLOAT(MEAN/10)/1.02 
P=DFLOAT(MOD(MEAN, 10))/1.014 
RETURN 
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Cc 
C FIVE DIGIT FAMILY OF NACA AEROFOILS. 
200 MM=(MEAN-200)/10 
GOTO(210,220,230,240,250),MM 
210 M=0.058D0 
K1=361.4D0 
RETURN 
220 M=0O.126D0 
K1=51.64D0 
RETURN 
230 M=0.2025D0 
Ki=15-957D¢6 


RETURN 
240 M=0.29D0 
K1=6.643D0 
RETURN 
250 M=0.391D0 
K1=3.23D0 
RETURN 
c 
C CALCULATE THE THICKNESS DIST. OF A NACA AEROFOIL 
C MODIFIED TO HAVE A RAZOR-LIKE TRAILING EDGE BY REMOVING 
C A LINEARLY INCREASING AMOUNT FROM X=0.3 TO X=1.0 
C REF: GREGORY, N. & P.G. WILBY (1973), A.R.C. PAPER #1261 
c ABBOTT, I.H. & A.E. VON DOENHOFF (1959), THEORY OF WING SECTIONS, 
Cc Wi1672, At2 1959, P14a-& 324 
c 
C CALCULATE AEROFOIL X & Y COORDS. FOR EACH SFC. 
100 X=(1.DO-DCOS(THETA))/2.D0 


B=0.2969D0*DSORT(X)-O. 126D0*X-0. 35 16D0*X*X 
C=0.2843D0*X**3-0. 1015D0*X**4 
YT=T/O.2D2*(B+C) 
IF(X.GT.0.3D0)YT=YT-(X-0.3D0)*2.1D-3*T/O.7D0/0.2D2 
IF(X-1.D0.GT.-1.D-8)YT=0.DO 
IF(MEAN.NE.O)GOTO 520 

C SYMMETRICAL NACA AEROFOIL. 


XU=X 

XL=X 

YU=YT 

YESs Ve) 

RETURN 
Cc 
520 IF (MEAN.GE.100)GOTO 530 
Cc 


C FOUR DIGIT FAMILY OF MEAN LINES. 
IF(X.GT.P)GOTO 540 
YC=M/P/P*(2.DO*P*X-X*X ) 
PHI =DATAN(2.DO*M/P/P*(P-X)) 
GOTO 550 

540 YC=M/(1.DO-P)**2*(1.DO-2.DO*P+2.DO*P*X-X*X ) 
PHI =DATAN(2.DO*M/(1.DO-P)**2*(P-X)) 
GOTO 550 

ce 

C FIVE DIGIT FAMILY OF MEAN LINES. 

530 IF(X.GT.M)GOTO 560 
YC=K1/6 .DO*(X**3-3.DO*M*X *X+M*M*(3.DO-M) *X) 
PHI =DATAN(K1/6.D0*(3.DO*X*X-6 .DO*M*X+M*M*(3.DO-M))) 
GOTO 550 

560 YC=K1/6.DO*M**3*(1.DO-X) 
PHI=DATAN(-K1/6.DO*M**3) 

550 XU=X-YT*DSIN(PHI ) 
YU=YC+YT*DCOS(PHI ) 
XL=X+YT*DSIN( PHI ) 
YL=YC-YT*DCOS(PHI ) 
RETURN 
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C CALCULATE THE X & Y COORDS. OF A CYLINDER 
101 XU=(1.DO-DCOS( THETA) )/2.D0 
XL=XU 
YU=DSQRT (0. 25D0-(XU-0.5D0)*(XU-0.5D0) ) 
IF (XU-1.DO..GT..7 1,.D-8)YU=0.DO 
MESS VU 
RETURN 


ENTRY JOUKEX(T) 
C DETERMINE VALUE OF E TO HAVE APPROPRIATELY THICK AEROFOIL 
i FOR EXACT JOUKOWSKI AEROFOIL GENERATION USING SECANT METHOD. 
hat 
eC DEK EK eo KK ok KOK KK eo ok ok oe a ok ok kK ok Ko SK ok ok ok ok ok of ok ok ok ok ok ok ok kok aK oko aK ako ok kK ok ok ok kok ok ok 
TOL=PI/1.8D2 
G Eo eR Oo ok Ko eo ok ok ok ok of ok ale ok ook ok ok a ok ook ok ak ak ak ak kok ok a ake kok ok ak ok ok ak ok ok ak ako ok ak ake ok ake ake ok: 
C INITIAL GUESS AT E. 
EI=4.D0/3.D0/DSORT(3.D0)*T/1.02 
EIM2=EI 
330 LE=P1I/3.15D0 
RE=P1/2.6D0 
C FIND MAX THICKNESS OF AEROFOIL FOR THIS VALUE OF E. 
B=(1.D0+2.DO*EI)/4.D0/(1.D0+2.DO*EI+EI*EI ) 
A=B*(1.DO+EI) 
340 CALL ZXGSN(JTHICK,LE,RE, TOL, THETAM, IER) 
IF(IER.LT.129.0R.IER.GT.132)GOTO 300 
WRITE(6, 10) 
WRITE(7,10) 
GOTO 510 
300 IF(I.GE.2)GOTO 320 
UTIM2=-JTHICK(THETAM)-T/14.D2 
C SECOND GUESS AT E 
EI=T/0.6602/DSQRT(3.D0) 
EIM1=EI 
I=2 


(e 2K Ko a KK ok eK KK OK Ko KE ok ok kok KK ok oo oe ok ok ok ook ok oe 3 oe OK ok KE ok OK kK ok kK aK ok 2 OK ok ok ok ok oi ok ok ok ok ok ok ok 


TOL=PI/1.8D4 

CR R OO III IK III SIO II II I I a a ICI He ak ak ok ak ae ac ak 
GOTO 330 

320 JTIM1=-JTHICK(THETAM)-T/1.D2 
Pet+4 

C SUCCESSIVELY BETTER APROXIMATIONS FOR E TO GIVE DESIRED THICKNESS. 
EI=EIM1-JTIM1*(EIM1-EIM2)/(JUTIM1-JTIM2) 


C SK KKK ok koko ok ok ok ok ko ok ok 2K ok ok ok ok ok ok kok oo ok oo 2K ao ok ok ok ak ie ke oi ei ko ake coe ak ake oe oe ok ak ok ak ak 


IF (DABS(JTIM1).LT.1.D-8)GOTO 500 
G SEO RK oR OK KKK KK ok kk ok ok ok ok ok ok a ok ok ok ok ke ok ok gk 9 a ok oe KK a x ok ak ok aK ok cake ok oo ok ok ok ok ok 
EIM2=EIM1 
EIM1=EI 
JTIM2=JUTIM1 
LE=THETAM-PI/1.D2 
RE=THETAM+PI1/1.D2 
B=(1.D0+2.DO*EI)/4.D0/(1.D0+2.DO*EI+EI*ET) 
A=B*(1.DO+EI) 
GOTO 340 
c 


ENTRY JOUKAP(T) 
C DETERMINES VALUE OF E TO HAVE APPROPRIATELY THICK AEROFOIL FOR 


Cc APPROXIMATE JOUKOWSKI AEROFOIL GENERATION 
Cc 

El=4.D0/9.DO*DSORT(3.DO)*T/1.D2 
Cc 


C DETERMINE A AND B 
500 B=(1.DO+2.DO*EI)/4.D0/(1.D0+2.D0*EI+EI*ET) 


A=BF(1.DO+ET ) 
510 RETURN 


C 
C CALCULATE THE SHAPE OF A JOUKOWSKI AEROFOIL USING THE FULL (EXACT) 
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DRAG 


TRANSFORMATION AND SHIFTING FORMULAE. 


C 

C REF: HOUGHTON, E.L. & A.E. BROCK (1970) AERODYNAMICS FOR ENGINEERING 
Cc STUDENTS (2ND EDITION) EDWARD ARNOLD LTD., LONDON, 458PP. 
€ 
1 


02 X=-B*(1.DO+EI )*DCOS(THETA)-B*EI 
YU=B*(1.DO+EI)*DSIN( THETA) 
X1=X*(1.DO0+B*B/(X*X+YU*YU) ) 
ETA=YU*(1.DO-B*B/(X*X+YU*YU) ) 
XU=(1.D0+2 .DO*EI+2.DO*EI*EI)/2.D0/(1.D0+2.DO*EI+EI*EI )+XI 
IF(XU.LT.O.DO)XU=0.DO 


XL=XU 
YU=ETA 
IF(XU-1.D0.GT.-1.D-8)YU=0.DO 
YE=—VU 
RETURN 
Cc 
C CALCULATE THE SHAPE OF A 3-D CIGAR. 
€ REF: MILNE-THOMSON (3RD. ED.) 
C 


103 A=T/4.D2 
IF((PI-THETA)/PI.LT.1.D0-5)GOTO 400 

C CHECK FOR FRONT OR REAR SECTION OF CIGAR. 
YU=A*DSIN( THETA) /DCOS(THETA/2.D0) 
IF(THETA.LT.PI/2.D0)GOTO 410 

C REAR SFC. IS 45 DEGREE SLOPING LINE. 
VURR=(A-1.D0)*DTAN(THETA)/(1.DO-DTAN( THETA) ) 
IF(YU.LT.YURR)GOTO 410 
YU=YURR 
YL=-YU 
XU=1.DO-A-YU 
XL=XU 
RETURN 

€ 

C CIGAR SHAPED FRONT SECTION 

410 YL=-YU 
XU=A*(1.DO-DCOS( THETA) /DCOS(THETA/2.D0) ) 
XL=XU 
RETURN 


400 XU=1.D0 
XL=1.D0 
yU=0.DO 


a ee ee ee ee 2 2 2 2 2 2 2 2 2 2 2 2 2 2 
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SUBROUTINE DRAG(UDS,VDS,UAS,VAS,CDS,.RED,CD) 
WRITTEN BY: M. OLESKIW ON:800222 LAST MODIFIED:810608 


CALCULATES THE REYNOLDS NUMBER AND DRAG COEFFICIENT OF THE DROPLET 


OO Orar@ 


DOUBLE PRECISION DSQRT.UDS,VDS,.UAS.VAS,RED,CD, 
.K2,K3,K4 


@) 


INTEGER CDS 


(@) 


COMMON /STAB1/K2.K3,K4 


IN} AUDS= 
VDS=DROPLET VELOCITY COMPONENTS. 


IN UAS= 
IN VAS=AIR VELOCITY COMPONENTS. 
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C IN CDS=PARAMETER TO DETERMINE DRAG COEFFICIENT FORMULATION. 
C OUT RED=RELATIVE MOTION REYNOLDS NO. 
C OUT CD=DRAG COEFFICIENT. 


Cc 
RED=DSOQRT ( (UDS-UAS ) **2+(VDS-VAS )**2)*K2 
IF(CDS.EQ.2)GOTO 300 
IF(CDS.EQ.1.AND.RED.LE.5.DO0)GOTO 100 
Cc 
C STEADY STATE DRAG COEFFICIENT OF DROPLET FOR RED < 5000 
Cc ABRAHAM (1970) 
CD=O.2924D0*( 1.DO+9.O6DO/DSORT (RED) )**2 
RETURN 
100 EPURED! GE. e272) )GOTO 200 


Cc 
C STEADY STATE STOKE’S DRAG FOR RED < 0.01 
CD=24 .DO/RED 
RETURN 
Cc 
C STEADY STATE DRAG COEFFICIENT FOR 0.01 < RED < 5 - SARTOR 
Cc AND ABBOTT (1975) 
200 CD=24 .DO/RED+2.2D0 
RETURN 
Cc 
C STEADY STATE DRAG COEFFICIENT - LANGMUIR & BLODGETT (1945) 
300 CD=24 .DO/RED+4 .73D0/RED**0.37D0+6 .24D-3*RED**O. 38D0 


RETURN 
END 
Cc 
C SSrteseSeeee22S22 [FS SS SS SS S22 S2SSS2S SS SSSSSSSSSSSSESSESESqEqaSESasqeqqq2qese22e2222=2=2=2°=2° 
Cc 
SUBROUTINE FIT(BOTH) 
Cc 
C WRITTEN BY: M. OLESKIW ON:810201 LAST MODIFIED:810923 
Cc 
C ROTATE UPPER AND LOWER SFCS. IF REQUIRED TO FIT CUBIC SPLINES 
Cc AND DETERMINE LENGTHS ALONG SFC. TO EACH ENDPT. CALCULATE 
C THICKNESS OF ACCRETION. 
Cc 
30 FORMAT(’-THE ACCRETED AREA FOR LAYER’,1I3,’ 18’,F9.6,/, 


. ‘OTHE ACCUMULATED ACCRETED AREA IS’,F9.6) 


(@) 


DOUBLE PRECISION $30,C30,DSQRT,XUR(101),YUR(101),xXU(101),YU( 101), 
.XLR(101),YLR(101),XL(101),YL(101),BPARU(4),BPARL(4),CU(100,3), 
.CL(100,3),LU(101),LL(101),XS,LEN, INTU, INTL, XNNUR, YNNUR, XNP,YNP, 
.INTUP, INTLP,YNNLR, XNNLR, XURTLP, XLRTLP,ACCR,ACCRU,ACCRL,ACCRT, 


.XN,YN,XUXR,XLXR 


INTEGER ATYPE,NEU,NEL, IERU,IERL,LAYER,BOTH,I,LYRM1,NEUU,NELL 


COMMON /FOIL/XUR,YUR,XLR,YLR/LG/LU,LL/ROTP/C30, S30 
_/SPLINE/CU, CL/AERO4/NEU.NEL,NEUU,NELL/NNOSE/XNP, YNP/LLR/ 
-ACCRT, LAYER, ATYPE/SFCS/XU, YU, XL, YL/NOSE/XN, YN/XXR/XUXR, XLXR 


IN BOTH=TRAJECTORIES TO COLLIDE ON BOTH SFCS. (O OR 1) 


ROTATE UPPER & LOWER SFCS. BY 30 DEG. ABOUT NOSE IN ORDER 
TO FIT CUBIC SPLINES. 
- SEE KENNEDY & MARSDEN (1976) 
S30=5.D-1 
C30=DSQRT(3.D0)/2.D0 


DO 320 I=1,NEU 
XUR(I)=(XU(1)-XU(1))*C30+(YUCT)-YU(1))*S30 


YUR(I)=(YU(I)-YU( 1) )*C30-(XU(T)-xXU(1) )*S30 


320 CONTINUE 
D0. S30) 1 =4) NEL 
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XLR(I)=(XL(1)-XL(1))*C30-(YL(1)-YL(1))*530 
YLR(I )=(YL(I)-YL(1))*C30+(XL(1)-xL(1))*530 
CONTINUE 


PARAMETERS FOR SPLINE FITTING 
BPARU(1)=1.DO 
BPARU(2)=6.DO/(XUR(2)-XUR(1))*((YUR(2)-YUR(1))/(XUR(2)-XUR 


.(1))-DSO@RT(3.D0) ) 


BPARU(3)=0.DO 
BPARU(4)=0.D0 

BPARL(1)=1.DO 
BPARL(2)=6.DO/(XLR(2)-XLR(1))*((YLR(2)-YLR(1))/(XLR(2)- 


-.XLR(1))+DSORT(3.D0)) 


BPARL(3)=0.DO 

BPARL(4)=0.DO 

IF(ATYPE.NE.1)GOTO 230 

BPARU(3)=1.D0 
BPARU(4)=6 .DO/( XUR(NEUU ) -XUR(NEUU- 1) )* 


. (-DSORT(3.D0)/3.DO-( YUR(NEUU)-YUR(NEUU-1))/ 
. (XUR(NEUU )-XUR(NEUU-1))) 


BPARL(3)=1.DO 
BPARL(4)=6.DO/(XLR(NELL)-XLR(NELL-1))* 


. (DSORT(3.D0)/3.DO-(YLR(NELL)-YLR(NELL-1))/ 
. (XLR(NELL )-XLR(NELL-1))) 


CUBLCSSPE INES slOREACHASEG . 
CALL ICSICU(XUR, YUR,NEUU,BPARU,CU, 100, IERU) 
CALL ICSICU(XLR,YLR,NELL,BPARL,CL,100,IERL) 


C CALCULATE INTEGRAL OF UPPER AND LOWER SFC. PROFILES. 
C FIND THE LENGTHS FROM THE NOSE TO VARIOUS ENDPTS. 


360 


340 


370 


350 


410 


LU(1)=0.D0 
LL(1)=0.DO 
INTU=0.DO 
INTL=0.DO 
DO 340 I=2,NEU 
IF(I.LE.NEUU)GOTO 360 
LU(I)=0.DO0 
GOTO 340 
XS=XUR(I)-XUR(I-1) 
CALL SFCLEN(XS,LEN,CU(I-1,3),CU(I-1,2),CU(I-1,1)) 
LU(I)=LU(I-1)+LEN 
INTU=INTU+(((CU(I-1,3)*XS/4.DO+CU(I-1,2)/3.D0)*xXS 
+CUlCI o4,, 1)i/ 2-00) =XSHYURCI - 1))*XS 
CONTINUE 
DO 350 I=2,NEL 
IF(I.LE.NELL)GOTO 370 
LL(I)=0.DO 
GOTO 350 
XS=XLER(1I)-XUR(I-1) 
CALL .SECEENCXS: LEN. CLE1-1,3),CLOEI-1, 2), CLUI=4 a)? 
LLGI)=LL(1-1)-LEN 
INTL=INTL+(((CL(I-1,3)*XS/4.DO+CL(I-1,2)/3.D0)*XxS 
#CL Ghai, 1420D0) SXS#VERCI-1))*XS 
CONTINUE 
XUXR=XU(NEUU ) 
XLXR=XL(NELL) 
IF(LAYER.EQ.1)GOTO 400 
XNNUR=( XN-XNP ) *C30+( YN-YNP ) *S30 
YNNUR=( YN-YNP ) *C30-(XN-XNP ) *S30 
ACCRU=INTU- INTUP+YNNUR* XURTLP- XNNUR*YNNUR/2 .DO 
IF(BOTH.EQ.1)GOTO 410 
ACCR=2.DO*ACCRU 
GOTO 420 
XNNLR=(XN-XNP ) *C30- (YN-YNP ) *S30 
YNNLR=(YN-YNP ) *C30+ ( XN-XNP ) *S30 
ACCRL=INTLP-INTL-YNNLR*XLRTLP+XNNLR*YNNLR/2 .DO 
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ACCR=ACCRU+ACCRL 
ACCRT=ACCRT+ACCR 
LYRM1=LAYER-1 
WRITE(6,30)LYRM1,ACCR,ACCRT 
WRITE(7,30)LYRM1,ACCR,ACCRT 
INTUP=INTU 

INTLP=INTL 

XURTLP=XUR(NEUU ) 
XLRTLP=XLR(NELL ) 

RETURN 

END 


SUBROUTINE GLERKS(EQN,CDS,EPS,LAMBH, WARN, SHORT, GLOBAL, GER) 


WRITTEN BY: M. OLESKIW ON: 810626 LAST MODIFIED: 810722 


INTEGRATE THE DROPLET EQNS. OF MOTION (IN X AND Y) USING: 
1:A 4TH ORDER RUNGE-KUTTA-FEHLBERG TECHNIQUE. 

2:ORDER EXTRAPOLATION OF THE ABOVE. 

3:STEP EXTRAPOLATION OF THE ABOVE (5TH ORDER ACCURACY). 


REF: 


BURDEN, R.L., J.D. FAIRES, & A.C. REYNOLDS (1978), 

NUMERICAL ANALYSIS, P.254, QA 297.B84 

PROTHERO,A., 1980: ESTIMATING THE ACCURACY OF NUMERICAL SOLNS. 
TO ODE’S. IN GLADWELL,I. AND D.K. SAYERS, EDS. COMPUTATIONAL 
TECHNIQUES FOR ODE’S. ACADEMIC PRESS, 303 PP. QA 370 C74 1978 
AND SHAMPINE, L.F. AND H.A. WATTS, 1976: GLOBAL ERROR 
ESTIMATION FOR ODE’S. ACM TRANS. MATH. SOFTWARE, 2, #2, 172-186. 


DOUBLE PRECISION EPS,xXDS(6,2),UDS(6,2),AN(2,6,2),YDS(6,2), 


.VDS(6,2),HT(2,6,2),DTS(6,2),UAS(6.2),VAS(6,2),RED(6,2),CD,RE, 
»K1,K2,K3,K4,K5,K6,L1,L2,L3,L4,L5,L6,M1,M2,M3,M4,M5,M6, 
-N1,N2,N3,N4,N5,N6,UA,VA,RMAX ,DMAX1,DMIN,DMIN(, 
.DABS,XR.YR,UR,VR,XT,YT,UT,VT,RMINP(2),RMAXP(2),RMIN, 

oXDEVOR UD AVOECcH. CCOnGoncC4eCSCGrC7 C8, CS, ClO. C11 et2) Clay 
“GIA GAS C16 eC17, Cle, C19, ceo, C21,C22,€23,C24,7TS(500,.2) 


DOUBLE PRECISION DMINP(2),DMINPP(2),LAMBH, EIGMX,XDSO, YDSO, 


.UDSO, VDSO,TSO,DTSO,DTSK 


INTEGER EQN,CDS,1(2),1M4(2),1M3(2),I1M2(2),IM1(2),10(2), 


.IP1(2),MM, SHORT ,WARN, GLOBAL,GER 


COMMON /PV/XDS,YDS,UDS, VDS/INTEG/AN, HT 


./LOC/TS,DTS,I,IM4,IM3,IM2,IM1,I0,IP1,MM 

. /REL/UAS,VAS,RED,.CD 

HARKEM/GGHRCC2 CS 1C4nConCG. C7, C8169, ClO Cit C12) Cis, GAae 
CIS C16. C17, C18’, G19", C20,,.C21,C22,C23,C24 


IN 


EQN=DENOTES PORTION OF TOTAL SYSTEM OF EQUATIONS TO BE SOLVED. 
CDS=TYPE OF DRAG COEFFICIENT TO BE USED. 
EPS=LOCAL ERROR PARAMETER. 
LAMBH=STABILITY PARAMETER. 
WARN=WARNING OF INSTABILITY (0 OR 1). 
SHORT=INDICATOR FOR NECESSITY OF SHORTING THE AUTO- 

STEP-SIZE ALGORITHM. 
GLOBAL=O:RKF4 INTEGRATING METHOD. 

1:AS ABOVE BUT WITH ORDER EXTRAPOLATION TO FIND GLOBAL 
ERROR. 

2:AS ABOVE BUT USING STEP EXTRAPOLATION. 

GER=INDICATOR THAT COLLISION HAS OCCURRED, AND THUS THAT 
GLOBAL EXTRAPOLATION CANNOT BE CONTINUED. 


SHORT =O 
XDSO=XDS(IO(MM) , MM) 
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YDSO=YDS(IO(MM) .MM) 
UDSO=UDS(10(MM) .MM) 
VDSO=VDS(IO(MM) ,MM) 
TSO=TS(I(MM) ,MM) 
DTSO=DTS(IO(MM) ,MM) 
IF(I(MM).GT.1)GOTO 100 
DMINPP(MM)=1.01DO 
DMINP(MM)=1.01D0 
TS(I(MM)+4,MM)=TSO+DTSO 
K1=DTSO*UDSO 

L1=DTSO*VDSO 
M1=DTSO*AN(1,I10(MM),MM) 
N1=DTSO*AN(2,I10(MM) ,MM) 
XD=XDSO+CC1*K14 
YD=YDSO+CC1*L1 
UD=UDSO+CC1*M1 
VD=VDSO+CC1*N14 

CALL AIRVEL(XD,YD,UA,VA,4) 
CALL DRAG(UD,VD,UA,VA,CDS,RE.CD) 


K2=DTSO*UD 
L2=DTSO*VD 

CALL ACCN(UD,VD,UA,VA,RE,CD,EQN, TSO+DTSO/4.D0,0) 
M2=DTSO*AN(1,1P1(MM),MM) 
N2=DTSO*AN(2,1P1(MM),MM) 

XD=XDSO+CC2*K14+C3*K2 

YD=YDSO+CC2*L1+C3*L2 

UD=UDSO+CC2*M14+C3*M2 

VD=VDSO+CC2*N1+C3*N2 

CALL AIRVEL(XD,YD,UA,VA,4) 

CALL DRAG(UD,VD,UA,VA,CDS,RE,CD) 


K3=DTSO*UD 

L3=DTSO*VD 

CALL ACCN(UD.VD,UA,VA,RE,CD, EQN, TSO+DTSO*3.75D-1,0) 
M3=DTSO*AN(1,1P1(MM),MM) 
N3=DTSO*AN(2,1P1(MM),MM) 
XD=XDSO+C4*K1-C5*K2+C6E*K3 
YD=YDSO+C4*L1-C5*L2+C6*L3 
UD=UDSO+C4*M1-C5*M2+C6*M3 
VD=VDSO0+C4*N1-C5*N2+C6*N3 

CALL AIRVEL(XD,YD,UA,VA,4) 

CALL DRAG(UD.VD,UA,VA,CDS,RE,CD) 


K4=DTSO*UD 
L4=DTSO*VD 
CALL ACCN(UD,VD,UA,VA,RE,CD,EQN, TSO+12.D0/13.D0 


. *DTSO,O) 


M4=DTSO*AN(1,IP1(MM) ,MM) 
N4=DTSO*AN(2,I1P1(MM),MM) 
XD=XDSO+C7 *K 1-C8*K2+C9*K3-C10*K4 
YD=YDS0O+C7*L1-C8*L2+C9*L3-C10*L4 
UD=UDS0+C7 *M1-C8*M2+C9*M3-C 10*M4 
VD=VDSO+C7 *N1-C8*N2+C3*N3-C 10*N4 
CALL AIRVEL(XD,YD,UA,VA,4) 

CALL DRAG(UD,VD,UA,VA,CDS,RE,CD) 


K5=DTSO*UD 

L5=DTSO*VD 

CALL ACCN(UD,VD,UA.VA,RE,CD,EON, TS(I(MM)+1,MM),O) 
M5=DTSO*AN(1,I1P1(MM) ,MM) 
N5=DTSO*AN(2,1P1(MM) ,MM) 
XD=XDSO-C11*K1+C12*K2-C13*K3+C 14 *K4-C15*KS 
YD=YDSO-C11*L1+C 12*L2-C13*L3+C14*L4-C15*L5 
UD=UDSO-C11*M1+C12*M2-C13*M3+C14*M4-C15*M5S 
VD=VDSO-C11*N14+C12*N2-C13*N3+C14*N4-C15*N5 
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220 


GLERK5 


CALL AIRVEL(XD,YD,UA,VA,4) 
CALL DRAG(UD,VD,UA,VA,CDS,RE,CD) 


K6=DTSO*UD 

L6=DTSO*VD 

CALL ACCN(UD,VD,UA,VA,RE,CD,EQN, TSO+DTSO/2.D0,0) 
MG6=DTSO*AN(1,1P1(MM).MM) 
N6G=DTSO*AN(2,1P1(MM),MM) 


IF(MM.EQ.2.AND.GER.EQ.0O)GOTO 110 
ORDER ESTIMATE AT TS(I(MM)+1,MM) 
XT=XDSO+C 16*K1+C17*K3+C18*K4-C19*K5 
YT=YDSO+C16*t14+C17*L3+C18*L4-C19*L5 
UT=UDSO+C 16*M1+C17*M3+C 18*M4-C19*M5 
VT=VDSO+C 16*N1+C17*N3+C 18*N4-C19*N5 


POSITION AND VELOCITY AT TS(I(MM)+4,MM) 

XDS(IP14(MM) ,MM)=XDSO+C20*K14+C21*K3+C22*K4-C23*K5+C24*KG 
YDS(IP1(MM) ,MM)=YDSO+C20*L14+C21*L34+C22*L4-C23*L5+C24*LE 
UDS(IP1(MM) ,MM)=UDSO+C20*M1+C2 1*M34+C22*M4-C23*M5+C24*MG 
VDS(IP1(MM) ,MM)=VDSO+C20*N1+C2 1*N34+C22*N4-C23*N5+C24*NG 
IF(MM.EQ.2.AND.GER.EQ.0)GOTO 130 


DETERMINE DIFFERENCES IN 4TH AND 5TH ORDER ESTIMATES. 


XR=DABS((XT-XDS(IP1(MM) ,MM))/DTSO) 
YR=DABS((YT-YDS(1P1(MM),MM))/DTSO) 
UR=DABS((UT-UDS(IP1(MM) ,MM))/DTSO) 
VR=DABS((VT-VDS(IP1(MM) ,MM))/DTSO) 
RMAX=DMAX1(XR,YR,UR, VR) 
RMIN=DMIN1(XR,YR,UR, VR) 
IF(GLOBAL.LT.2)DMIN=(EPS/RMAX )**O.25D0 
IF (GLOBAL .EQ.2)DMIN=(EPS/RMAX )**O. 20D0 


ADJUST NEXT STEP SIZE. TRY TO MINIMIZE OSCILLATIONS. 


eK KKK KK KK KOK KOK OK EK oR Ko ke oo Ko ok oe ok 2 ok 2 EK aK a dE ok OK ok aK ok ok ok Se ok oo aK ok eo KK ok ok ok ak Ok ok ok 


IF(DMINP(MM).LT.1.D0)GOTO 200 
IF(DMINPP(MM).LT.1.D0)GOTO 230 
IF(DMIN.LT.1.DO)DTSK=0.84D0*DMIN*DTSO 
IF(DMIN.GE.9.DO)DTSK=2.52D0*DTSO 
IF(DMIN.GE.1.DO.AND.DMIN.LT.9.DO)DTSK=((DMIN-1.D0)/4.D0+1.D0) 
.*DTSO*O.84D0 

GOTO 210 

IF(DMIN.LT.1.DO)OTSK=0.84D0*DMIN*DTSO 
IF(DMIN.GE.11.DO)DTSK=1.68D0*DTSO 
IF(DMIN.GE.1.D0.AND.DMIN.LT.11.D0)DTSK=((DMIN-1.D0)/10.D0+1.D0) 
.*DTSO*O.84D0 

GOTO 210 

IF(DMINPP(MM).LT.1.D0)GOTO 220 
IF(DMIN.LE.O.8DO0)DTSK=0.672D0*DTSO 

IF(DMIN.GT. 1.DO0)DTSK=((DMIN-1.D0)/10.D0+1.DO)*0.84D0*DTSO 
IF(DMIN.GT.O.8D0.AND.DMIN.LE.1.DO0)DTSK=DMIN*0O. 84D0*DTSO 

GOTO 210 

IF(DMIN.LE.O.2D0)DTSK=0. 168DO0*DTSO 

IF(OMIN.GT. 1.D0)DTSK=((DMIN-1.D0)/10.D0+1.00)*O0.84D0*DTSO 
IF(DMIN.GT.O.2D0.AND.DMIN.LE. 1.D0)DTSK=DMIN*0O. 84D0*DTSO 


Cc SEO ROR OOOO ORR ROKR OK II IG i ak aE Eo oR aS Ek a ak ae a ake ak ak i ke ake ak afc ak ak ak ate ake ako ake a 


C 


C CHECK FOR SUFFICIENT ACCURACY. 


210 


DMINPP (MM) =DMINP (MM) 

DMINP (MM) =DMIN 
IF(DTSK.LT.5.D-4)DTSK=5.D-4 

IF (RMAX.GT.EPS.AND.DTSK.GT.5.D-4)GOTO 170 


C DO NOT ALLOW TIME STEP TO INCREASE INTO INSTABILITY. 


IF(1(MM).GT.1.AND.DTSK/DTSO*LAMBH.LT.-2.2D0) 
.DTSK=-2.200/LAMBH*DTSO 

DTS(IP1(MM) ,MM)=DTSK 

GOTO 300 
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GROWTH 


170 IF(I(MM).NE.1)GOTO 140 
GOTO 160 


CCK EE IO RI ORR ORI RO IOI Ra IE RO OK aR ak ak ake ok ok ote ake ak 


140 IF (RMAX/RMAXP(MM).GT.4.DO*RMIN/RMINP(MM))GOTO 150 
CS eI AO KE OO RK KE ORR EO OK OKIE ROR IK OK OK KR OK a kK aR ka ak a ak kak ok kde ake ak 
160 DTSO=DTSK 
DTS(IO(MM) ,MM)=DTSK 
GOTO 100 
C STEP OVER EXTREMELY RAPIDLY CHANGING AREAS. 
150 DTS(IP1(MM) ,.MM)=(DTSO+DTSK)/2.D0 
SHORT = 1 
300 RMINP(MM)=RMIN 
RMAXP (MM) =RMAX 
IF(I(MM).GT.1)DTS(IP1(MM),MM)=DMIN1(DTS(IP1(MM),MM), 
.2.DO*DTS(IP1(MM) ,MM)-DTSO) 


IF(GLOBAL.EQ.2)GOTO 130 
C NEW POSITION AND VELOCITY ARE 4TH ORDER ESTIMATES. 
XDS(IP1(MM) ,MM)=XT 
YDS(IP1(MM) ,MM)=YT 
UDS(1IP1(MM) ,MM)=UT 
VDS(IP141(MM) ,MM)=VT 


C NEW ACCELERATIONS AT I+4 
130 CALL AIRVEL(XDS(IP1(MM),MM),YOS(IP14(MM),MM), 
.UAS(IP41(MM),MM),VAS(IP41(MM),.MM) ,5+8*(2-MM) ) 
CALL DRAG(UDS(IP1(MM),MM),VDS(IP1(MM),MM),UAS(IP1(MM),MM), 
.VAS(IP1(MM),MM),CDS,RED(IP1(MM),MM),CD) 
CALL ACCN(UDS(IP1(MM),MM),VDS(IP1(MM),MM),UAS(IP14(MM),MM), 
.VASCIP1(MM),MM),RED(IP1(MM),MM),CD,EON,TS(I(MM)+1,MM),0O) 
IF (MM.GT.14)RETURN 
C SKIP STABILITY CALCULATION IF TIME STEP IS DECREASING 
C AND IS FAR FROM STABILITY LIMIT. 
IF(I(1).GT.1.AND.DTSK/DTSO.LT.1.AND.LAMBH.GT.-1.8D0) 
-GOTO) 20 
CALL STAB(RED(IP1(MM),MM),CD,UDS(IP1(MM),MM),VDS(IP1(MM),MM), 
.UAS(IP1(MM),MM),VAS(IP1(MM),MM),CDS,EIGMX) 
LAMBH=EIGMX*DTSO 
IF(LAMBH.LT.-2.7DO)WARN=1 
120 IF(EQN.NE.2)RETURN 
CALL ACCN(UDS(IP1(MM),MM),VDS(IP1(MM),MM),UAS(IP1(MM),MM), 
-VAS(IP1(MM),MM),RED(IP1(MM),MM),CD,EQN,TS(I1(MM)+1,MM), 1) 


RETURN 
END 
Cc 
8 ee ee ee 
C 
SUBROUTINE GROWTH(XMIN, XMAX,YMIN, YMAX,LYRMAX,PLTFAC) 
Cc 
C WRITTEN BY: M. OLESKIW ON:800713 LAST MODIFIED:810422 
Cc 
C PLOTS SUCCESSIVE AEROFOIL OUTLINES WITHIN VIEW WINDOW 
Cc 
REAL XGR(204, 10), YGR(204,10),PLTFAC, XMIN, XMAX, YMIN, YMAX, 
_XPLT(204), YPLT(204) ,XGRE(203, 10), YGRE(203, 10),XPLTE(101), 
.YPLTE(101),.DX,DY,DDX ,DDY,ABS,AINT 
Cc 
INTEGER IT(10),LYRMAX,ITT,I,JU,LYRM1, 
-ITE( 10), ITTE,NDCPX,NDCPY 
Cc 
COMMON/GROW/XGR,YGR,XGRE,YGRE,ITE,IT 
Cc 
C IN XMIN= 
C IN XMAX= 


CelNe eV MIN= 
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HERM5 


YMAX=X AND Y LIMITS OF ICE ACCRETION PLOT WINDOW. 
LYRMAX=NO. OF LAYERS TO BE ACCRETED. 
PLTFAC=PLOT EXPANSION/REDUCTION FACTOR. 


NDCPX=0 
NDCPY=0 

DX=(XMAX-XMIN)/20.0 

DY=(YMAX-YMIN)/12.0 

DDX=ABS(4.0*DX)+1.E-6 

DDY=ABS(2.0*DY)+1.E-6 

IF (DDX-AINT(DDX).LT.2./10.**(6-NDCPX))GOTO 510 
NDCPX=NDCPX+ 14 

DDX=DDX*10.0 

GOTO 500 
IF(DDY-AINT(DDY).LT.2./10.**(6-NDCPY))GOTO 520 
NDCPY=NDCPY+ 4 

DDY=DDY*10.0 

GOTO 510 


C DRAW AXES FOR ICE ACCRETION PLOT. 
520 


110 


210 


CALL NEWPEN( 1) 
CALL FACTOR(PLTFAC) 
CALL ORIGIN(999,20.0,12.0,5.0,5.0) 
CALL AX2EP(4.0,3,NDCPX,1,0.9) 
CALBRAXIS2 GOR O89 °"X/G") -3,20. ,0..XMIN; DX 420) 
CAGLEAX ES 2620" 40> Wands =1.5512407904 20; .0. . 2:0) 
CALL AX2EP(2.0,3,NDCPY,1,1.2) 
CALL JAX IPS200.4 80h 2714 / CH 83% 12:50, 90. SYMIN, DY, -2.0) 
CAGUEAXMIS2(04/ 42:09 OE4, 3205,0) 102,0., 4.0) 
LYRM1=LYRMAX+ 14 
DO 100 I=1,LYRM1 
Hibs hr ¢ 1) 
ITTE=ITE(1) 
HO4110 J=121TT 
XPLT(U)=XGR(J,1) 
YPLT(JU)=YGR(uJ,1) 
CONTINUE 
DO 210 J=1,ITTE 
XPLTE(JU)=XGRE(J.1) 
YPLTE(JU)=YGRE(UJ,1I) 
CONTINUE 
CALL NEWPEN(3) 


C PLOT ACCRETION OUTLINES. 


GAUITiGENE Oise. VEE. 1 Cr )=2. 1,0.0) 
CALL LINEP(0.07) 


C PLOT CONTROL SEGMENT ENDPTS. 


100 


CAL nl BNE ( XPishe 2YP ERE sDTEG! )-2,1,-1,0) 
CONTINUE 

RETURN 

END 
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SUBROUTINE HERM5(L,YO,DYDL,N,CEE) 


WRITTEN BY: M. OLESKIW ON: 810721 LAST MODIFIED: 811002 


CALCULATE COEFFICIENTS FOR HERMITE QUINTIC SPLINE. 


IN 
IN 


DOUBLE PRECISION L(31),Y0(31),DYDL(31),CEE(5,30),U2,V2,S2,T2. 


.Z,R,U1,V1,51.7T1,DTAN, DATAN, SS2,SS3,SN1,SN2 


INTEGER N,N1,K,JU2,JU1,N2 


L=LENGTH ALONG AEROFOIL SFC. 
YO=TRAJECTORY STARTING VALUE. 
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HERMIT 


DYDE=SEOREV Oh YOR VSwE CURVE. 
N=NUMBER OF DATA PTS. TO BE FITTED. 
CEE=VECTOR OF COEFFICIENTS FOR QUINTIC HERMITE POLYNOMIAL SPLINE. 


N1=N-1 
N2=N-2 
$S2=(DYDL(2)-DYDL(1))/(L(2)-L(1)) 
$S$3=(DYDL(3)-DYDL(2))/(L(3)-L(2)) 
SN1=(DYDL(N)-DYDL(N1))/(L(N)-LON1)) 
SN2=(DYDL(N1)-DYDL(N2))/(LO(N1)-L(N2)) 
CEE(2,1)=0.5D0*DTAN(2.DO*DATAN(SS2)-DATAN(SS3) ) 
CEE(2,N)=0.5D0*DTAN(2.DO*DATAN(SN1)-DATAN(SN2) ) 
CEE(4,1)=0.00 
CEE(3,1)=0.D0 
DO 200 K=1.N1 
J2=K+1 
U2=1.D0/(L(JU2)-L(K)) 
CEE(5,K)=U2 
V2=U2*U2 
$2=10.D0*V2*U2*(YO(JU2)-YO(K)) 
T2=4.DO*V2*(DYDL(JU2)+DYDL(K) ) 
IF(K.EQ.1)GOTO 100 
Z=1.D0/(3.DO*(U14U2)+U1*CEE(4,U1)) 
CEE(4,K)=-U2*Z 
R=S$2-S1-T2+T1+2.D0*(V1-V2)*DYDL(K) 
IF(K.EQ.2)R=R+U1*CEE(2,1) 
IF(K.EQ.N1)R=R+U2*CEE(2,N) 
CEE(3,K)=Z2*(R+U1*CEE(3,U1)) 
J1=K 
U1=U2 
V1=V2 
$12=S$2 
F1=T2 
CONTINUE 
CEE(2,N1)=CEE(3,N1) 
IF(N1.LE.2)GOTO 400 
DO 300 J1=2,N2 
K=N-J1 
CEE(2,K)=CEE(3,K)-CEE(4,K)*CEE(2.K+1) 
CONT INUE 
DO 500 K=1,N1 
J2=K+14 
R=YO(JU2)-YO(K) 
Z=CEE(5,K) 
CEE(3,K)=Z+*(CEE(2,JU2)-3.DO*CEE(2,K)-Z*(6.DO*DYDL(K) 
+4 .DO*DYDL(J2)-10.D0*Z*R) ) 
CEE(4,K)=Z*2Z*(3.DO*CEE(2,K)-2.DO*CEE(2,U2) 
+Z*(8.DO*DYDL(K)+7.DO*DYDL(JU2)-15.D0*Z*R) ) 
CEE(5,K)=Z2*2*2Z*(CEE(2,JU2)-CEE(2,K) 
-3.D0*Z*(DYDL(K)+DYDL(U2)-2.D0*Z*R)) 
CEE(1,K)=DYDL(K) 
CONT INUE 
RETURN 
END 


SUBROUTINE HERMIT(XO,X1,YO,Y1,YPO,YP1,4,B,C) 


WRITTEN BY: M. OLESKIW ON:810414 LAST MODIFIED: 


CALCULATE THE HERMITE CUBIC POLYNOMIAL INTERPOLATOR 
GIVEN THE FUNCTION AND ITS DERIVATIVES AT THE 
ENGPTS. OF THE INTERVAL. 

REF: 


BURDEN,.R.L. ET AL.( 1978), BUMERICAL ANALYSIS, 
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HIST 


PRINDLE,WEBER, & SCHMIDT, BOSTON, QA 297.B84, P 109. 
DOUBLE PRECISION AOUATRYOTY 1EYPOFYP 1 ASE.C, Z 


XO= 

X1=LEFT AND RIGHT BOUNDS OF THE INTERVAL 
YO= 

Y1=FN. VALUES AT ENDS OF INTERVAL. 

YPO= 

YP1=DERIVATIVES OF FN. AT ENDS OF INTERVAL. 
= 

B= 

C=CUBIC POLYNOMIAL COEFFICIENTS. 


Z=X1-XO 
A=(2.DO0*YO/Z-2.DO*Y1/Z+YPO+YP1)/Z/Z 
B=(3.D0*Y1/Z-3.D0*YO/Z-2.DO*YPO-YP1)/2Z 
C=YPO 


SUBROUTINE HIST(T,G) 


WRITTEN BY: M. OLESKIW ON:801216 LAST MODIFIED:810626 


DETERMINES VALUE OF INTEGRAL IN HISTORY TERM FOR U COMPONENT EQN. 


REF: 


IN 


IN 


BURDEN, R.L., J.D. FAIRES, & A.C. REYNOLDS (1978) 
NUMERICAL ANALYSIS P. 90 QA 297.884 


DOUBLE PRE@LESTON) TAUS), TAU2, TAUI, TAUO,P11,P10,P21,P22,P20, 


.P33,P32,P31,P30,T0,T1,T2,T3,7S(500,2),FO,F1,F2,F3,DSQRT,DTS(6,2), 
HT €2,,.6. 2), digds B 4Ce Dios ANC2106r 2 )isP: 257451222738 , 232,231,230, 
.AA,BB 


INTEGER J,L,FF,E,MOD,UI,JJU,G,1(2),IM4(2),IM3(2),IM2(2),IM1(2), 


.10(2),1P1(2),MM,II 


COMMON /LOC/TS,DTS,I,1M4,IM3,IM2,IM1,10,1P1,MM/INTEG/AN,HT 


T=TIME AT PRESENT TIME STEP. 
G=0:EXTRAPOLATE HISTORY TERM SEQUENCE. 
14:CALCULATE NEW HISTORY TERM. 


TAUS(A,B)=((5.DO*A**34+6 .DO*A*A*T+8 .DO*XA*T*T+16 .DO*T**3) 


-*DSQRT(T-A)-(5.DO*B**3+6 .DO*B*B*T+8 .DO*B*T*T+16.DO*T**3) 
. *DSQRT(T-B) )*2.D0/35.D0 


TAU2(A,B)=((3.DO0*A*A+4 .DO*A*T+8. DO*T*T ) *DSORT(T-A) 


.-(3.DO*B*B+4 .DO*B*T+8.DO*T*T) *DSORT(T-B) )*2.D0/15.D0 


TAU1(A,B)=((2.DO*T+A) *DSQRT(T-A)-(2.D0*T+B)*DSORT(T-B))*2.00/3.D0 
TAUO(A.B)=2.D0*(DSQRT(T-A)-DSQRT(T-B)) 


C STATEMENT FNS. TO FIND THE TERMS OF THE LAGRANGE POLY. FIT. 


P411(TO)=(F1-FO)/(T1-TO) 

P10(TO)=(FO*T1-F1*TO)/(T1-TO) 

Z2(A,B8,C,F)=F/(A-B)/(A-C) 
P22(TO)=22(TO,T1,T2,FO)+Z2(T1, 70,72, F1)+22(T2,70,71,F2) 
P21(TO)=-(T14+T2)*Z2(TO, 71,72, FO)-(TO+T2)*Z2(T1,T0,T2,F 1) 


.- (TOs Id * 224 Tae T0,71,F2) 


P20(TO)=T1*T2*Z2(TO,T1, 72, FO)+TO*T2*Z2(T1,TO,T2,F 1) 


+1 OX THE ZOC1 270s 14. F 2) 


733(A,B,C,D,F)=F/(A-B)/(A-C)/(A-D) 
P33(TO)=Z233(T0,T1,1T2,7T3,FO)+233(T1,T0,T2,T3,F1) 


-+4233(T2,T0.7T1,73,F2)+Z33(T3,T0,T1,72,F3) 
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HIST 


Z32(A,B.C,D.F )=-(8+C+D)*F/(A-B)/(A-C)/(A-D) 
P3200 )=Z7392 07087 the ,T3.FO)+232(T1, TO, 72,73, Ft) 


{A ZOQK TORUOnt , TSF 2 7-32( T3.eTO. Te AT2. FS) 


Z31(A,B,C,D,F )=(B*C+B*D+C*D) *F/(A-B)/(A-C)/(A-D) 
P31.0TO)=Z730 (10, T1,T2,73,FO)+231(T1,TO,72;73,F1) 


arene keOn Wielta.F2)+731(T3,TO,7T1,72,F3) 


Z30(A,B,C,D,F)=-B*C*D*F/(A-B)/(A-C)/(A-D) 
P2O0GTO)=Z30GTO, T1 ,.T2,739,FO)+290(T1,TO,712,73.64) 


s+ Z30GU2 10 with. Wee F 22 30( TS, TO, 74, T2,F3) 


II1=I (MM) 
IF(G.EQ@.1)GOTO 200 


C EXTRAPOLATION GF HISTORY TERM SEQUENCE 


GOTO( 140, 120, 100), II 

TO=TS(II-3,MM) 

T1=TS(II-2,MM) 

T2=TS(II-1,MM) 

T3=TS(II,MM) 
DO.410 J=1,2 
FO=HT(U,IM3(MM),MM) 
F4=HT(JU, IM2(MM),MM) 
F2=HT(JU,IM1(MM) ,MM) 
F3=HT(JU,IO(MM) ,MM) 
HT(JU,IP1(MM) ,MM)=P33(TO)*T**3+P32(TO)*T*T+P31(TO)*T+P30(TO) 
CONTINUE 

RETURN 


TO=TS(1,MM) 
T1=TS(2,MM) 
T2=TS(3,MM) 
DO 130 J=1,2 
FO=HT(JU,IM2(MM) ,MM) 
F1=HT(JU,IM1(MM),MM) 
F2=HT(JU,IO(MM) ,MM) 
HT(JU,IP1(MM) ,MM)=P22(TO)*T*T+P21(TO)*T+P20(TO) 
CONTINUE 
RETURN 


TO=TS(1,MM) 

T1=TS(2,MM) 
DO 150 J=1,2 
FO=HT(JU,1M1(MM) ,MM) 
F1=HT(JU,1O(MM) ,MM) 
HT(U,IP1(MM),MM)=P11(TO)*T+P10(TO) 
CONT INUE 

RETURN 


HT(1,1P1(MM) ,MM)=0.DO 
HT(2,1P1(MM) ,MM)=0.DO 
RETURN 


L=(1(MM)-4)/2*3+1 
HT(4,IP1(MM),MM)=0.DO 
HT(2,1P1(MM),MM)=0.DO 
GOTO(400,500,600,700), 11 
FF=MOD(I(MM),2) 
E=II-S+FF 


C EVALUATE INTEGRAL UP TO LAST SEVERAL INTERVALS 


220 


DO 210 J=1,E,2 
AA=TS(JU,MM) 

BB=TS(JU+2.MM) 
Ji=(d71)/27341 


DO 220 JU=1,2 
HT (JU. 1P1(MM) ,MM)=HT(JdJ, IP 1(MM),MM)+P(JJ,JI,MM)*TAU2(AA,BB) 


+P (UJ, JI+1,MM)*TAU1(AA,BB)+P (JU, JI+2,MM)*TAUO(AA , BB) 
CONTINUE 
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210 CONTINUE 
IF(FF.EQ.1)GOTO 600 
C EVALUATE INTEGRAL FOR LAST 4 INTERVALS 
Cc USING TWO INTERVAL PAIRS (FOR I EVEN) 
700 TO=TS(II-3,MM) 
T1=TS(II-2,MM) 
T2=TS(II-1,MM) 
BOLT 10702152 
FO=AN(JU,1IM3(MM) ,MM) 
F1=AN( JU. I1M2(MM) ,MM) 
F2=AN(JU,IM1(MM) ,MM) 
C FIT A 2ND ORDER LAGRANGE POLYNOMIAL 
P(JU,L,MM)=P22(TO) 
P(J,L+1,MM)=P21(TO) 
P(U,L+2,MM)=P20(TO) 
HT(JU,IP1(MM) ,MM)=HT(JU,IP41(MM),MM)+P(JU,L,MM)*TAU2(TO, T2)+ 
P(JUJ,L+1,MM)*TAU1(TO,T2)+ 
. P(Jd,L+2,MM)*TAUO(TO,T2) 
710 CONTINUE 
C FOR THE SECOND PAIR OF THE SET 
C (OR FOR THE VERY FIRST PAIR OF INTERVALS) 
500 TO=TS(II-1,MM) 
T1=TS(II,MM) 
T2=TS(II+1,MM) 
DO 720° J21,2 
FO=AN(JU, IM1(MM).MM) 
F1=AN(JU,IO(MM) ,MM) 
F2=AN(JU,IP1(MM),MM) 
HT(JU,1IP1(MM),MM)=HT(JU,IP1(MM) ,MM)+P22(TO)*TAU2(TO,T2)+ 
P21(TO)*TAU1(TO,T2)+ 
. P20(TO)*TAUO(TO,T2) 
720 CONTINUE 
RETURN 
(es 
C EVALUATE INTEGRAL FOR LAST 3 INTERVALS (FOR I ODD) 
600 TO=TS(II-2,MM) 
T1=TS(II-1,MM) 
T2=TS(II.MM) 
T3=TS(II+1,MM) 
DO 610 J=1,2 
FO=AN(JU,IM2(MM),MM) 
F1=AN(JU.IM1(MM),MM) 
F2=AN(JU,IO(MM).MM) 
F3=AN(JU,1IP1(MM),MM) 
HT(JU,IP4(MM),MM)=HT(U,1P1(MM),MM)+P33(TO)*TAU3(TO,T3)+ 
P32(TO)*TAU2(TO,T3)+ 
. P31(TO)*TAUI(TO,T3)+P30(TO)*TAUO(TO,T3) 
610 CONTINUE 
RETURN 
fed 
C EVALUATE INTEGRAL FOR THE FIRST INTERVAL 
400 TO=TS(1,MM) 
T1=TS(2,MM) 
DO 410 J=1,2 
FO=AN(JU,1IO(MM),MM) 
F1=AN(JU,IP1(MM),MM) 
HT(U, IP 1(MM) ,MM)=HT(J,IP1(MM),MM)+P11(TO)*TAU1(TO,T1)+ 


P10(TO)*TAUO(TO,T1) 


410 CONTINUE 

RETURN 

END 
Cc @eeeeeere2ze2ssaeze2seezqzzqe fZSeeaes2esezeze2a 
(es ee ee ee ee ee ee 
Cc 


SUBROUTINE ICING(LTOL, ICE,BOTH, FAIL,DDISTN, ATHICK, FILTER) 
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ICING 


WRITTEN BY: M. OLESKIW ON:800713 LAST MODIFIED:811024 


CALCULATE AMOUNT OF ACCRETION AND DETERMINE A NEW SET OF AEROFOIL 
SURFACE ELEMENT ENDPOINTS AFTER DETERMINING THE AEROFOIL 
NOSE LOCATION. 


DOUBLE PRECISION XN, YN, XNN,YNN, XUR( 101), YUR(101),BU( 101), 


-CU(100,3),CL(100,3),XLR(101),YLR(101),L(31,5),Y0(31,5), 
-0,CEED(S,30,5),LTOL,DSIGN, XLRN( 101), YLRN(101),XNM,BL(101), 
-$30,C30,NSURF , XURN( 101), YURN( 101) ,CEU(101,5),CEL(101,5), 
AULCIO DL) ALE C101), XUC101), YUC1O1) -XUCIOT) YUCION). E(2), 
-YUT(101),YLT(101),DABS,DSORT,LU(101),LL(101),ICE,MDU(101), 
.TOL,LE,RE,ICEE,ALPHAR,DCOS,LUP(101),LLP(101),SL,MDL( 101) 


DOUBLE PRECISION NSURFY,XRMIN,XNP,YNP,DDD,DSIN,FXU,FXL, 


-ACU(101),ACL(101),KU(101),KL(101),W(S),XI,¥I,C,DD(5),DFLOAT, 
. THKU( 101), THKL(101),UNEU, VNEU,UNEL,BETA,FLV,LUM,LLM, ACCRT, 
.VNEL,CFV(3,30,5),CFA(3,30,5),MMD,VTOT(31,5),ACOL(31,5), 
-RU(101),RL(101),RHOSU(101),RHOSL(101),UINF,PINF,TINF, 
.VTIMP,TI,PAR,OMIN1,DMAX1,EPS(5),KLF,LRU,LRL,TOLL,R1,R2,R3, 
.VTL( 101), VTU( 101), YOE(2),FL(5),FILTER,LOL.LDR,LMXCE(6),LMX 


INTEGER BOTH,J,NCOU,NCOL,ICT(5),I1CU(5),ICL(5),I1,IER,NOAC, 


.IM,IUS,ILS,IK,FAIL,RUN,NEU,NEL,IU(51),IL(51),ATH,DDSTN, 
.KK, 1XU(101),1XL(101),IUU,ILL,NEUP,NELP,KJP,KJU,NCOUM1,II,uUK, 
.NCOLM1,DDISTN, JJ, ATHICK, TYPE,DENSE,HS,N,ICTT,NELLP,NEUUP, 

. IMAXU, IMAXL, IMXU, IMXL,M, NEUUP1,NELLP1,KI,NEUU,NELL,JI,Iu, 
.LAYER,ATYPE,H5D(5) 


COMMON ALPHAR/AEROS/NCOU, NCOL/NOSE/XN, YN/FOIL/XUR, YUR, 


.XLR, YLR/ROTP/C30, S30/CEM/LMXCE/IND/NSURFY,FL,ICEE,I,JU,RUN 
./AERO4/NEU,NEL,NEUU,NELL/CEV/CFV,CFA/RC/RU,RL,ATH,DDSTN 
./SPLINE/CU.CL/ENDS/IU,IL.IXU, IXL/NNOSE/XNP, YNP/HERMT5/H5 , H5D 
./WTS/W/TRANS3/DD,C, TYPE, JU/CV/VTOT , ACOL 

./TRANS1/UINF ,PINF,TINF,EPS,DENSE/LLR/ACCRT,LAYER,ATYPE 
t/COL7E. VG. lect, i CU, ICE, Err/CEED/SFCS/XU- VUSXL, YE/EG/LUSEL 


EXTERNAL NSURF 


LTOL=MAX. INCREASE ALLOWED IN LENGTH BETWEEN CEE’S 
BETWEEN SUCCESSIVE AIRFOIL SURFACES. 

ICE=THICKNESS OF ICE ACCRETION ASSUMING CE=100%. 

BOTH=TRAJECTORIES FOR BOTH SFCS. (O OR 1) 

FAIL=FAILURE INDICATOR. 

DDISTN=NO. OF SIZES IN DROPLET DISTN. 

ATHICK=INCORPORATE SFC. CURVATURE IN ACCRETION THICKNESS 
CALCULATION. 

DENSE=VARY DENSITY OF ICE ACCRETION (O OR 1) 

FILTER=LENGTH OF BOXCAR FILTER(AS A FRACTION OF L RANGE OF 
LARGEST DROPLET SIZE) TO BE APPLIED TO SMOOTH CE VS L 
CMRVECS). 2 IFO, THEN DON’T FILTER. CE) 


FORMAT(’OFAILURE TO CONVERGE TO NEW NOSE POSITION’ ) 
FORMAT(’-MASS MEAN DIAMETER:’,F7.1,° MICROMETERS. ’) 


FORMAT(‘O’,T64,5(’ DROPLET ryi fe + *T6a SC" *DTAMETER ”)./; 
Wi GAPS CRG eo tie eee) 

FORMAT(’ ‘,126, ’DISTANCE LAYER NORM. AVERAGE’ ,/, 

.’ €—ND’,T28,’FROM ACCRETION ICE 6( 2 COLLISION: —*). 
./,’ POINT X COORD Y COORD NOSE THICKNESS DENSITY ’, 

SGC EREIC LENG Wo.) ica 

yh Te ’ T4,F 10.5, 3F9.5,F8.3,2PF9.2,5(2PF11.2)) 


FORMAT(’ “’) 


DDSTN=DDISTN 
ATH=ATHICK 
DO 100 I=1,NEU 
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ACU(I)=0.DO 
VTU(I)=0.DO 
MDU(1I)=0.DO 
BU(I)=0.DO 
RHOSU(I)=1.D0 
IF(I.GT.NEUU)GOTO 100 
C FIND PERPENDICULAR SLOPES FOR UPPER SFC. POINTS. 


KU(I)=-1.D0/DSIGN(DMAX 1(DABS(CU(I,1)),1.D-10),CU(I,1)) 


C FIND RADUIS OF CURVATURE FOR UPPER SFC. POINTS. 
RU(I )=((1.DO0+CU(I, 1)**2)**1.5D0)/2.D0/ 
DSIGN(DMAX 1(DABS(CU(I,2)),1.0-10),-CcU(1I,2)) 

400 CONTINUE 

IF(BOTH.EQ.O)GOTO 180 

DO 110 1=1,NEL 

ACL(1I)=0.D0 

VTL(1I)=0.D0 

MDL(I)=0.DO 

BL(I)=0.DO 

RHOSL(I)=1.D0 

IF(I.GT.NELL)GOTO 110 

C FIND PERPENDICULAR SLOPES FOR LQWER SFC. POINTS. 


KL(I)=-1.DO/DSIGN(DMAX 1(DABS(CL(I,1)),1.0-10),CL(1,1)) 


C FIND RADIUS OF CURVATURE FOR LOWER SFC. POINTS. 
RLGP SG DOLCE CTT ) +2) * 81/500) /2700/ 
. DSIGN(DMAX1(DABS(CL(1I,2)),1:D-10),CL(1I,2)) 
110 CONT INUE 


180 MMD=0 .DO 
Cc 


C FIND WEIGHTED AND/OR FILTERED COLLISION EFFICIENCY 
C FOR UPPER SFC.: 
DO 205 J=1,DDISTN 
JJ=ICL(J) 
JI=TCH( oe) 
ICHP=IECT OU) 
FL(J)=FILTER*(L(ICTT,JU)-L(1,JU))/2.D0 
LDL=L(1,u) 
LOR=L(ICTT,v) 
LMX=LMXCE(J) 
C FIND VOLUME MEAN DIAMETER. 
MMD =MMD+W( J) *DD(J) 
DO 200 I=1,NEU 
IF(I.GT.NEUU)GOTO 215 
220 IF(LU(I).LE.L(UI+1,U))GOTO 240 
JI=JI+4 
PE(UT AUT AICT(J}) GOTO 220 
C NO ACCRETION REGION. 


215 CEUCI (J) =O .00 
IF(FILTER.EQ.O.DO)GOTO 1375 
GOTO 1400 

240 DFU C! KL CUES) 


C CALCULATE INTERPOLATED CE. 
IF(H5D(JU).E€0.0)CEU(I,JU)=((3.D0*CEED(3,UI,JU)*D 
+2. DO*CEED(2.U1,U))*D+CEED(1,UI,JU)) *DCOS(ALPHAR ) 
IF(HSD(JU). EQ. 1)CEU(I,u)=((((5.DO*CEED(S5,JuI,J)*D 
+4.DO*CEED(4,UI,U))*D+3.D0*CEED(3,UI,JU))*D 
+2. DO*CEED(2,JUI,U))*D+CEED(1,JUI,JU))*DCOS(ALPHAR ) 
IF(FILTER.NE.O.DO)GOTO 1400 
BU(I)=BU(I)+CEU(I,JU)*W(J) 
GOTO 1375 

1400 IF(LU(I).GE.LMX)GOTO 1610 
IF(LU(I).LE.LDL)GOTO 1620 
FLV=FL(J)-0.9D0*FL(JU)/(LMX-LDL)*(LU(I)-LOL) 
GOTO 1600 ee 

F(LU(I).GE.LDR)GOTO 
ie Pe dies enor tL )/ (LOR-LMX) (LUT) UK) 


GOTO 1600 
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1620 FLV=FL(J) 
1600 E(1)=LU(I)-FLV 
E(2)=LU(I)+FLV 
DO 1430 IJ=1,2 
IF(E(IJU).GT.L(1,U))GOTO 1440 
YOEGIS=VOC1, w) 


GOTO 1430 
1440 TPCECTO)MER LCICTT Jv) )GOTO 1450 
YOE(IJU)=YOCICTT, J) 
GOTO 1430 
1450 IF(E(IU).GT.L(dU,JU))GOTO 1460 
JJ=JJ-14 
GOTO 1450 
14460 IF(E(IJU).LE.L(Ju+1,U))GOTO 1470 
JJ=Ju+ 14 
GOTO 1460 
1470 D=E(IJ)-L(Ju,J) 


IF(HSD(J).EQ.0)YOE(IJU)=((CEED(3,UJU,U)*D 
+CEED(2.JUJU,U))*D+CEED( 1, JJU,JU))*D+YO(Ju, Ju) 
IF(H50(JU).EQ.1)YOE(IU)=((((CEED(5,JUU,uU)*D 
+CEED(4,UJU,JU))*D+CEED(3,UJU,J))*D 
: +CEED(2,JJU,JU))*D+CEED(1,JUJU.J))*D+VO(dd,J) 
1430 CONT INUE 
BETA=(YOE(2)-YOE(1))/2.DO0/FLV*DCOS( ALPHAR) 
BU(I )=BU(I )+W(JU)*BETA 
1375 IF(DENSE.EQ.0)GOTO 200 
C CALCULATE AVERAGE DROPLET IMPACT VELOCITY COMPONENTS. 
IF(LU(I).LE.L(ICTT,JU))GOTO 1380 
IF(JU.GT.1)GOTO 200 
VTUC(I)=VTUC(I)+#W(1)*VTOTC(ICTT, 1) 
ACU(I )=ACU(I )+W(1)*DABS(ACOL(ICTT,1)) 
MDU(I )=MDU(1I )+W(1)*DD(1) 
GOTO 200 
1380 D=LU(I)-L(JI,U) 
VTU(I )=VTUCI )+W(U)*(((CFV(3,JUI,J0) *D+CFV(2,UI,JU))*D 
+CFV(1,JI,JU))*D+VTOT(UI,J)) 
ACU(I )=ACU(I )+W( JU) *DABS(((CFA(3,JUI,JU)*D+CFA(2,JI,JU))*D 
+CFA(1,JUI,U))*D+ACOL(UI,UJ)) 
MDU( I )=MDU(I )+W(JU)*OD(J) 
200 CONTINUE 
IF(BOTH.EQ.0)GOTO 205 
Cc 
C FOR LOWER SFC: 
JJ=ICL(J)+1 
JI=ICL(JU)+1 
DO 210 I=1,NEL 
IF(I.GT.NELL)GOTO 225 
230 IF(LL(1).GT.L(JI,JU))GOTO 250 
JI=JI-1 
IF(JI.GT.O)GOTO 230 
C NO ACCRETION REGION. 


225 CEL(1,JU)=0.D0 
IF(FILTER.EQ.0.DO0)GOTO 1475 
GOTO 1500 

250 D=LL(IT)J-LCJUI,d) 


C CALCULATE INTERPOLATED CE. 
IF (H5D(J).£Q.0)CEL(1,U)=((3.DO*CEED(3,JUI,J)*D 
+2 DO*CEED(2,UI,uU))*D+CEED(1,JUI,JU))*DCOS(ALPHAR ) 
IF(H5D(J).£Q. 1)CEL(I,U)=((((5.DO*CEED(5,UI,U)*D 
+4. DO*CEED(4,JI,uU))*D+3.DO*CEED(3,JUI,JU))*D 
+2 DO*CEED(2,JI,U))*D+CEED(1,UI,uU))*DCOS(ALPHAR) 
IF(FILTER.NE.O.DO)GOTO 1500 
BL(I)=BL(1)+CEL(1,JU)*W(J) 
GOTO 1475 

4500 IF(LL(I).GE.LMX)GOTO 1710 
FECLUCL) CE EDL GOTO’ 1720 
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ICING 


FLV=FL(JU)-O0.9D0*FL(JU)/(LMX-LDL)*(LL(I)-LDL) 


GOTO 1700 

1710 IF(LL(1I).GE.LDR)GOTO 1720 
FLV=O. 1DO*FL(JU)+0.9D0*FL(U)/(LDR-LMX )*(LL(1I)-LMX) 
GOTO 1700 

1720 FLV=FL(J) 

1700 E(1)=LL(I)-FLV 


E(2)=LL(I)+FLV 
DO 1530 IJ=1,2 
IF(E(IJU).GT.L(1,JU))GOTO 1540 
YOECIY) =VYOC1.u) 


GOTO 1530 

1540 IF(E(Id).LT.L(CICTT,JU))GOTO 1550 
YOE(IJU)=YOCICTT, Uv) 
GOTO 1530 

1550 IF(E(IJU).GT.L(UJ,uU))GOTO 1560 
JJ=UJUU-1 
GOTO 1550 

1560 IF(E(IJU).LE.L(UJ+1,U))GOTO 1570 
JJ=JuJ+ 1 
GOTO 1560 

1570 D=E(IJU)-L(dJ,J) 


IF(HSD(JU).EQ.0)YOE(IU)=((CEED(3,JUU,JU)*D 
+CEED(2,UU,U))*D+CEED(1,JUU,JU))*D+YO( UU, Ju) 
IF(H5D(J).£Q. 1) YOE(IU)=((((CEED(5, JU,J)*D 
+CEED(4,JUU,UJU))*D+CEED(3,JUU,JU))*D 
: +CEED(2,UJU,uU))*D+CEED(1,JUU,J))*D+YO(Ju,Uu) 
1530 CONT INUE 
BETA=(YOE(2)-YOE(1))/2.DO/FLV*DCOS (ALPHAR) 
BL(I)=BL(1I)+W(JU)*BETA 
1475 IF(DENSE.EQ.0)GOTO 210 
C CALCULATE AVERAGE DROPLET IMPACT VELOCITY COMPONENTS. 
IF(LL(I).GE.L(1,JU))GOTO 1480 
IF(U.GT.1)GOTO 210 
VTL(I)=VTL(I)+W(1)*VTOT(1, 1) 
ACL(I)=ACL(I )+W(1)*DABS(ACOL(1,1)) 
MDL(I)=MDL(1I)+W(1)*DD(1) 
GOTO 210 
1480 D=LL(I)-L(JI,U) 
VTIL(IL)=VTL(I )+W(J) *(((CFV(3, 51,0) *D+CFV(2,JUI,JU))*D 
+CFV(1,JUI,JU))*D+VTOT(UJI,J)) 
ACL(1)=ACL(1)+W(UJU)*DABS(((CFA(3,JUI,JU)*D+CFA(2,UI,JU))*D 
+CFA(1,JUI,U))*D+ACOL(JI,U)) 
MDL(I)=MDL(1I)+W(JU)*DD(U) 


210 CONTINUE 
205 CONTINUE 
C 


C ACCRETE ICE ON EACH SFC (TAKING INTO ACCOUNT THE 
Cc SFC CURVATURE IF ATHICK IS 1) 
C FOR THE UPPER SFC.: 
NOAC=O 

DO 300 I=1,NEU 

IF(NOAC.EQ.1)GOTO 320 

IF(BU(I).EQ.0.DO0)NOAC=1 
C INDEX OF BEGINNING OF NO ACCRETION REGION. 

IF (NOAC.EQ. 1) IMAXU=I 

IF(DENSE.EQ.0)GOTO 355 
C CALCULATE MEAN ICE DENSITY 

UNEU=VTU(I)*DSIN(ACU(TI)) 

VNEU=VTU(I)*DCOS(ACU(I)) 

IF (DENSE .EQ. 1) VTIMP=VNEU*UINF 

IF (DENSE .£Q.2)VTIMP=DSORT (UNEU**2+VNEU**2 ) *UINF 
C ICE DENSITY ACCORDING TO MACKLIN (1962) 

TI=DMAX1(TINF,-20.D0) 

TI=DMIN1(TI,-5.DO) 

PAR=-MDU(I)/2.DO*VTIMP/TI 
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ICING 


PAR=DMIN1(PAR,16.29D0) 
PAR=DMAX1(PAR,O.88D0) 
RHOSU(I )=1. 1D2*(PAR**O.76D0)/9.17D2 
355 THKU( I )=ICE*BU(1)/RHOSU(I ) 
IF(ATHICK.EQ.0)GOTO 330 
IF (ATHICK.EQ.-1)GOTO 370 
IF(I.NE.1)GOTO 340 
IF(BOTH.EQ.1)GOTO 365 
R1=DSIGN(2.DO*DABS(RU(2) )+DABS(RU(1)),RU(1))/3.D0 


GOTO 380 
365 R1=DSIGN(DABS(RL(2))+DABS(RU(1))+DABS(RU(2)),RU(1))/3.D0 
GOTO 380 
C UNSMOOTHED RADIUS OF CURVATURE. 
370 Ri=RU(I1) 
GOTO 380 
340 R1=DSIGN(DABS(RU(I-1))+DABS(RU(I))+DABS(RU(I+1)),RU(I))/3.D0 
C ICE ACCRETION THICKNESS INCORPORATING CURVED SFC. 
380 IF(I.EQ.1)R2=R1 


IF(I.EQ.2)R3=R1 
THKU(I )=-R1+DSIGN(DSORT(R1**2+2.D0*R1*THKU(I)),R1) 
C COORDS. FOR NEW SFC. 
330 XURN(I )=XUR(I )+DSIGN(DSORT( THKU(I )**2/ 
(1.DO+KU(1)**2)),KU(I)) 
YURN(I )=YUR(I )+KU( I) *(XURN(I)-XUR(TI)) 


GOTO 300 
C NO ACCRETION 
320 XURN(I)=XUR(I) 
YURN(I )=YUR(I1) 
300 CONTINUE 


IF(R2.GE.R3)GOTO 306 
C ICE ACCRETION THICKNESS INCORPORATING CURVED SFC. 
THKU( 1) =-R3+DSIGN(DSORT(R3**24+2.DO*R3*ICE*BU( 1) 
. /RHOSU(1)),R3) 
XURN(1)=XUR(1)+DSIGN(DSQRT ( THKU( 41) **2/ 
.(1.00+KU(1)**2)),KU(1)) 
YURN(1)=YUR(1)+KU(1)*(XURN(1)-XUR(1)) 
306 WRITE(7, 15)MMD 
WRITE(7,20)(DD(N) ,N=1,DDISTN) 
WRITE(7,25) 
DO 190 I=1,NEUU 
WRITE(7.30)1,XU(I),YU(I),LU(1), THKU(I),RHOSU(I),BU(I), 
(CEU(I,N),N=1.DDISTN) 
IF(BU(1I).EQ@.0.D0)GOTO 406 


190 CONT INUE 

406 IF(BOTH.EQ.0)GOTO 590 

Cc 

CE EORS titi eenteO We Ra oinC cms 
NOAC=0 


DO 400 I=1,NEL 
IF(NOAC.EQ.1)GOTO 420 
IF(BL(I).EQ@.0.DO)NOAC=1 
C INDEX OF BEGINNING OF NO ACCRETION REGION. 
IF(NOAC.EQ.1)1MAXL=I 
C CALCULATE MEAN ICE DENSITY 
IF(DENSE.EQ.0)GOTO 455 
UNEL=VTL(I)*DSIN(ACL(I)) 
VNEL=VTL(1)*DCOS(ACL(I)) 
IF (DENSE .EQ. 1) VTIMP=VNEL*UINF 
IF (DENSE .EQ.2)VTIMP=DSQRT (UNEL**2+VNEL**2) *UINF 
C NORMALIZED ICE DENSITY ACCORDING TO MACKLIN (1962). 
TI=DMAX1(TINF,-20.D0) 
TI=DMINi(TI,-5.DO) 
PAR=-MDL(I)/2.DO*VTIMP/TI 
PAR=DMIN1(PAR, 16.29D0) 
PAR=DMAX1(PAR,O.88D0) 
RHOSL(I)=1.1D2*(PAR**O.76D0)/9.17D2 
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ICING 


455 THKL(1I)=ICE*BL(I)/RHOSL(I) 
IF(ATHICK.EQ.0)GOTO 430 
IF(I.NE.1)GOTO 440 
THKL(1)=THKU( 1) 
GOTO 430 
440 IF(ATHICK.EQ.-1)GOTO 470 
C FIND RADIUS OF CURVATURE. 
R1=DSIGN(DABS(RL(I-1))+DABS(RL(1I))+DABS(RL(I+1)),RL(I))/3.D0 


GOTO 480 
470 R1=RL(1) 
C ICE ACCRETION THICKNESS INCORPORATING CURVED SFC. 
480 THKL (1 )=-R14+DSIGN(DSORT(R1**24+2.DO*R1*THKL(I)),R1) 
C COORDS. FOR NEW SFC. 
430 XLRN(I)=XLRCI)-DSIGN(DSORT(THKL(I)**2/ 


(1.DO+KL(I)**2)),KL(I)) 
YLRN(I)=YLR(I)+KL( 1) *(XLRN(I)-XLR(I)) 


GOTO 400 
C NO ACCRETION 
420 XLRN(I)=XLR(I) 
YLRN(I)=YLR(T) 
400 CONTINUE 


WRITE(7,40) 
DO 235 1=1,NELL 
WRITE(7,30)1,XL(1I),YL(I),LL(1), THKL(I),RHOSL(I),BL(I), 
(CEL(I,N),N=1,DDISTN) 
IF(BL(I).£Q.0.D0)GOTO 900 
235 CONTINUE 
GOTO 900 
Cc 
C UPPER & LOWER SFCS. MIRROR IMAGES; NOSE STAYS ON THE X-AXIS. 
590 DO 5895 I=1,NEU 
XLRN( I )=XURN(I ) 
YLRN(I)=-YURN(I) 


5395 CONT INUE 
IMAXL=IMAXU 
GOTO 930 

Cc 


C FIND NEW NOSE LOCATION USING THE GOLDEN SECTION SEARCH METHOD 
C OF DETERMINING THE MIN. VALUE OF THE NEW SURFACE X-COORD. 
900 ICEE=ICE 
RUN=O 
t= 
JJ=1 
IF(LMXCE(6).LT.O.DO)GOTO 905 
XNM=XN-THKU( 1) 
DO 1010 KK=1,NCOU 
IF (XU(KK)-THKU(KK).GT.XNM)GOTO 1025 
1010 CONTINUE 
1025 LE=1.D-10 
RE=XUR(KK) 
GOTO 920 
905 XNM=XN-THKL (1 ) 
DO 910 KK=1,NCOL 
IF(XL(KK)-THKL(KK).GT.XNM)GOTO 925 


910 CONTINUE 
925 LE=1.D-10 
RE=XLR(KK) 
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FAIL=O 

CHeEIMINS=OF SEARGCHE 
GALE 2XGSN(NSURF ,LE,RE, TOL, XRMIN, IER) 
IF(IER.LT.129.OR.IER.GT.132)GOTO 350 


FAIL=1 
WRITE(6, 10) 
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ICING 


WRITE(7, 10) 
GOTO 720 
C NEW NOSE COORDS. 
850 YNN=NSURFY 
XNN=NSURF ( XRMIN) 
€ 
C DE-ROTATE NEW UPPER & LOWER SFCS. ABOUT PREVIOUS NOSE POSITION 
930 DO 500 I=1,NEU 
XUT (I )=XURN( I )*C30-YURN(I )*S30+XN 
YUT (I )=XURN(I )*S30+YURN(I)*C30+YN 
500 CONTINUE 
DO 510 I=1,NEL 
XLT(I)=XLRN( I )*C30+YLRN(I)*S30+XN 
YLT(1I)=-XLRN(I)*S30+YLRN(I)*C30+YN 
5410 CONTINUE 
IF(BOTH.EQ.1)GOTO 520 
XNN=XUT( 1) 
YNN=YUT( 1) 
520 XU(1)=XNN 
XL(1)=XNN 
YU( 1) =YNN 
YL(1)=YNN 
IUU=1 
TLv=4 
IF (BOTH.EQ.0)GOTO 625 
IF(LMXCE(6).LT.O.DO)GOTO 605 
c 
C SEE IF ANY UPPER SFC. ENDPTS. ARE BELOW THE NEW NOSE POSITION 
€ & THUS BELONG ON THE LOWER SFC. 
DO 1110 IM=1,NEU 
IF (DABS(YUT(IM)-YNN).LT.O.2D0*(YUT(2)-YUT(1)))GOTO 1120 
IF(YUT(IM).GT.YNN)GOTO 1130 
1110 CONTINUE 
4120 IF(IM.GT.2)GOTO 1140 
IF(IM.EQ.2)GOTO 1150 
C SAME NOSE INDEX 
1US22 
ILS=2 
GOTO 660 
C NEW NOSE IS NEAR FIRST ENDPT. ABOVE PREVIOUS NOSE. 
14150 IUS=3 
ILS=1 
GOTO 660 
C NEW NOSE IS NEAR SECOND OR GREATER ENDPT. ABOVE PREVIOUS NOSE 
1140 IK=IM-2 
DO! 1170) T=1, 1K 
ILL=TLL+4 
XLC ILL )=XUTC(IM-I) 
YLC(ILL)=YUT(IM-I) 
1170 CONTINUE 
IUS=IM+1 
ILS=1 
GOTO 660 
1130 IF(IM.GT.2)GOTO 1180 
C NEW NOSE IS BETWEEN FIRST & SECOND ENDPTS. ON UPPER SFC. 
IUS=2 
ILS=1 
GOTO 660 
C NEW NOSE IS ABOVE SECOND ENDPT. ON UPPER SFC. 
1180 IK=IM-2 
po 1190 1=1,IK 
TLLETLL+1 
xe CLEL Y=XUTCIM-1) 
VECTUL )=YUT CIM-1) 
1190 CONTINUE 
IUS=IM 
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ICING 


ILS=1 
GOTO 660 
€ 
C SEE IF ANY LOWER SFC. ENDPTS. ARE ABOVE THE NEW NOSE POSITION 
C & THUS BELONG ON THE UPPER SFC. 
605 DO 610 IM=1,NEL 
IF (DABS(YLT(IM)-YNN).LT.0.2D0*(YLT(1)-YLT(2)))GOTO 620 
IF(YLT(IM).LT.YNN)GOTO 630 
610 CONTINUE 
620 IF(IM.GT.2)GOTO 640 
IF(IM.EQ.2)GOTO 650 
C SAME NOSE INDEX 
625 IUS=2 
ILS=2 
GOTO 660 
C NEW NOSE IS NEAR FIRST ENDPT. BELOW PREVIOUS NOSE 
650 IUS=1 
ILS=3 
GOTO 660 
C NEW NOSE IS NEAR SECOND OR GREATER ENDPT. BELOW PREVIOUS NOSE 
640 IK=IM-2 
DO 670 I=1,IK 
IUU=IUU+ 1 
XU( IUU)=XLT(IM-I) 
YU(IUU)=YLT(IM-1) 
670 CONTINUE 
IUS=1 
ILS=IM+1 
GOTO 660 
630 IF(IM.GT.2)GOTO 680 
C NEW NOSE IS BETWEEN FIRST & SECOND ENDPTS. ON LOWER SFC. 
IUS=1 
ILS=2 
GOTO 660 
C NEW NOSE IS BELOW SECOND ENDPT. ON LOWER SFC. 
680 IK=IM-2 
DO 690 I=1,IK 
IUU=IUU+1 
XU( IUU)=XLT(IM-I) 
YU(IUU)=YLT(IM-L) 


690 CONTINUE 
IUS=1 
ILS=IM 
660 DO 700 I=IUS,NEU 
IUU=IUU+ 1 


XU( IUU)=XUT(1) 
YU(IUU)=YUT(I) 
700 CONT INUE 
DO 710 I=ILS,NEL 
ILL=ILL+1 
XL(ILL)=XLT(I) 
YUGILE) eVLF C19 
7A0 CONTINUE 
NEUP=NEU 
NELP=NEL 
NEU=IUU 
NEL=ILL 
NEUUP =NEUU 
NELLP=NELL 
NEUU=NEUU+NEU-NEUP 
NELL=NELL+NEL-NELP 
XNP=XN 
YNP=YN 
XN=XNN 
YN=YNN 
IF(LAYER.GT.2)GOTO 750 
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ICING 


LUM=LU(2) 
LLM=LL(2) 
750 DO 800 I=1,NEUUP 
LUP(I)=LU(I) 
800 CONTINUE 


DO 810 I=1,NELLP 
LLPCI)=be (1) 
810 CONTINUE 
DO 840 I=1,NEU 
IXU(I)=0 
840 CONT INUE 
DO 845 I=1,NEL 
IXL(I)=0 
845 CONTINUE 
IXU(NEU)=14 
IXU(1)=1 
IXL(NEL )=1 
IXL(1)=1 
KJUP=NEU 
KJ=KUJP 
C SET VALUES TO O FOR PROPER OUTPUT. 
IF(NEU-NEL.GT.0)GOTO 960 
IF(NEU-NEL.EQ.0)GOTO 970 
NEUUP 1=NEUU+ 4 
DO 980 KI=NEUUP1,NELL 
XU(KI)=0.DO 
YU(KI)=0.D0 
LU(KI )=0.DO 
380 CONTINUE 
GOTO 970 
960 NELLP1=NELL+1 
DO 990 KI=NELLP1,NEUU 
XL(KI)=0.D0 
YL(KI)=0.DO 
LL(KI)=0.DO0 
990 CONTINUE 
C 
C FIND INDICES ON NEW SFCS OF BEGINNING OF NO ACCRETION REGION. 
970 IMXU=NEU-NEUP+IMAXU 
IMXL=NEL-NELP+IMAXL 


FIT CUBIC SPLINES TO THE SFCS. AND CHECK IF THERE ARE 
ENOUGH VORTICITY SEGMENTS. 
CALLER I TGBOTH) 


OLOL@ 


LRU=LU( IMXU) /LUP( IMAXU) 
LRL=LL(IMXL)/LLP(IMAXL) 


SEK SE ERK ORR OKO OR ROR OR IRR RO kk ak aR aK aE ro ao a aK a a a ok a ok aE a i ak ak a ak ak ak a eo a ake ake ake ok ok ak 


TOLL=0.99D0 


kK OK ROKK OK K ORR ok ko RK RRR RRR kK RRR ROK dk Rok ak kok kak aK Rk ak kk kak a ak ak a ag aK ak ok ok ak ok 
C FIND RATIO OF SFC. ENDPTS. TO CONTROL ENDPTS. IN ACCRETION REGION. 


DO 1200 KI=1,NCOU 
IF(IU(KI).GE.IMAXU)GOTO 1250 


1200 CONTINUE 


G OR ROS OR IG GI IGG Ok rok ak i ICG a ak ak ak ak ak I a ak ok akc ok 


1250 FXU=1.DO-DFLOAT(KI-1)/2.DO/DFLOAT(IMAXU-1) 


G SOR OK ROR RISO IORI IOI OR JE aE FI I JE ICI a ak ak a aR A a aR ok a a 


IF(BOTH.EQ.1)GOTO 1210 


FXL=FXU 
GOTO 1300 
1210 po 1220 KI=1,NCOL 
IF(IL(KI).GE.IMAXL)GOTO 1260 
1220 CONT INUE 


; RK KK * kk * 
@ Be GE SK OR SE a EO SI I SO Sa oe ak ke ok toi ok feos aie ae ake oR ae ee Ae KK KKK OK OK ok 


1260 FXL=1.DO-DFLOAT(KI-1)/2.DO/DFLOAT(IMAXL-1) 


C FIND RATIO OF LENGTHS ALONG SFC. TO BEGINNING OF NO ACCRETION REGION. 
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ICING 


C Fe eo EE SR or oR iE ROR ROK RO RK aR aK ok ok ak kkk kak aR aR ak ak kkk aK aK aE sk ak ake ok 
Cc 
C FOR THE UPPER SFC.: 
1300 NCOUM1=NCOU- i 
M=0 

DO 820 I=1,NCOUM1 

II =NCOU+1-I 
C REDEFINE CEE’S IN NO-ACCRETION REGION. 


834 IF(KJP.LE.IMXU)GOTO 833 

KJ=KuU- 1 

IF (NEU-KJU.LT.NEUP-IU(II-1))GOTO 834 

GOTO 880 
C DISTANCE BETWEEN CONTROL ENDPTS. ON PREVIOUS SFC. 
833 IF(M.EQ.1)GOTO 830 


SL=DMAX1(LUP(IU(II))-LUP(IU(II-1)),LUM) 
TOLL=DMIN1(LRU,LTOL)*FXU 
(@ OK KO oR OK OK OK KOK OK OK KO Oo Ko KK ok ok ok OK ok ok ok 3k 3K ok nic ok oe of oe KK ok ok ok ok ok Kk ok ok ok ok ok ok ok ok ok ok ak ok ok ok ok ok ok ok ok ok 
831 IF(LU(KUP).GT.2.DO*TOLL*SL)GOTO 830 
IF(LU(KJP).LT.1.2DO*TOLL*SL)GOTO 821 
SL=LU(KUP)/2.D0/DMAX1(TOLL, 1.D0) 
Cc DK OK KK Kk OK OK Ok OK KK OO OK OO OOK OK OK KOK ok eK ok oo fe oo ok ok ok OK ok oe OK ok ok OK ok oo ok ok ok ok ok 3K OK Kook ok ok Ko ok ok ok ok ok ok ok 
M=1 
830 KJ=Ku-1 
IF(KJU.EQ.1)GOTO 880 
IF(LU(KUP)-LU(KJ).LT.TOLL*SL)GOTO 830 
C DISTANCE EXCEEDS THAT OF PREVIOUS CONTROL SEGMENT. 
880 IXU(KUJ)=1 
IF(KU.EQ.1)GOTO 821 
IF (KJP-KJ.EQ.1)GOTO 870 
DDD=DSQORT( (XU(KuU) -XU(KUP ) ) **24+(YU( KU) -YU(KUP) )**2) 


(& eK KK OK KK ok KK KK ok oR OK 2K ok ok ok oe ok oe ok ok 3 a oe KK a ok ok ok OK ok OK ok ok oOo ok Kook ok ok oe ok ok ok Ok ok ok ok ok ok 


IF((LU(KUP)-LU(KU))/DDD.LE.1.3D0)GOTO 870 
CIO III IIIS I GI aK iG a IG I fk 
C CONSIDERABLE SFC. CURVATURE, CREATE NEW CONTROL PT. 

(e MIDWAY BETWEEN PREVIOUS ONES. 


JK=KuUP - 1 
860 IF(LU(KUP)-LU( JK) .GT.0.45D0*TOLL*SL)GOTO 850 
JK=JK- 1 
GOTO 860 
850 IXU( UK) =1 
870 KJUP=KJ 


IF(M.EQ@.1)GOTO 821 
IF(II.EQ@.2)GOTO 831 
820 CONT INUE 
Cc 
C FOR THE LOWER SFC.: 
821 KJP=NEL 
KJ=KuP 
NCOLM1=NCOL - 1 
TOLL=0.99D0 
M=O 
DO 825 I=1,NCOLM1 
II=NCOL+1-I 
C REDEFINE CEE’S IN NO-ACCRETION REGION. 


837 IF(KUP.LE.IMXL)GOTO 838 

KJ=KuJ- 1 

IF(NEL-KU.LT.NELP-IL(II-1))GOTO 837 

GOTO 885 
C DISTANCE BETWEEN CONTROL ENDPTS. ON PREVIOUS SFC. 
838 IF(M.EQ.1)GOTO 835 


SL=DMAX1(LLP(IL(II-1))-LUPCIL(II)), LLM) 
TOLL=DMIN1(LRL,LTOL)*FXL 


(e Se EKO OK KK Rr ok ok ak ok og kk ae ae ook ok ak Ek 
35 
836 IF(-LL(KUP).GT.2.DO*TOLL*SL)GOTO 8 
TR C-CECKUP) ET 15 2007 TOLL *SL)JGOTO 826 
SL=-LL(KuP)/2.DO/DMAX1(TOLL, 1.DO) 
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Co oe oo oo RRR oO SEO Eo a ka a Ia I dCi a de ak ak ote ake de ak 
M=1 
835 KJ=KuJ- 1 


IF(KJU.EQ.1)GOTO 885 
IF(LL(KJU)-LL(KUP).LT.TOLL*SL)GOTO 835 
C DISTANCE EXCEEDS THAT OF PREVIOUS CONTROL SEGMENT. 
885 IXi (Ku) =3 
IF(KJU.EQ.1)GOTO 826 
IF (KJUP-KJU.EQ.1)GOTO 875 
DDD=DSORT ((XL(KU)-XL(KUP) ) **24+(YL(KU)-YL(KUP) )**2) 


G He EK eK OK oo EK ke OK ok ok ok oo ok OR IK KK IK aK a ok kK ok ok kek ok ok 


IF((LL(KU)-LL(KUP) )/DDD.LE.1.3D0)GOTO 875 
CK Eo EO KIO SE FE FEE AK OI KK ROO OK OR a GR kk kk kk ok ck akok ak ok 
C CONSIDERABLE SFC. CURVATURE, CREATE NEW CONTROL PT. 
C MIDWAY BETWEEN PREVIOUS ONES. 


JK=KUJP- 1 

865 IF(LL(KJU)-LL(KUP).GT.0.4500*TOLL*SL)GOTO 855 
JK=JK- 1 
GOTO 865 

855 IXL(JUK)=14 

B75 KJUP=KJ 


IF(M.EQ.1)GOTO 826 
IF(II.EQ@.2)GOTO 836 

825 CONTINUE 

826 TUU=1 
DO 730 I=1,NEU 
IF(IXU(1I).EQ.0)GOTO 730 
IU( IUU)=1 
IUU=IUU+1 

730 CONTINUE 

TLL=1 

DO 740 I=1,NEL 
IF(IXL(I).EQ.0)GOTO 740 


DEC et 
DGB LES 

740 CONT INUE 

NCOU=IUU- 1 

NCOL=ILL-1 
720 RETURN 

END 
Cc 
(@ Stress eee eee tt H Ht SSS HSS ST SSS SSS SS SS SHS SS SSS SSS SS SS SSS SSS SSS SHS SSS SSS 
Cc 

DOUBLE PRECISION FUNCTION JUTHICK( THETA) 
Cc 
C WRITTEN BY: M. OLESKIW ON:810212 LAST MODIFIED:810315 
Cc 
C CALCULATES THE NEGATIVE OF THE THICKNESS OF THE JOUKOWSKI AEROFOIL 
C AS A FN. OF THETA AND E. 
C 

DOUBLE PRECISION E,DSIN,DCOS, THETA,A,B,X,Y 
Cc 

COMMON /JOUK1/A,B,E 
Cc 
C IN THETA=ANGLE FROM NEGATIVE X-AXIS. 
Cc 

X=-B*(1.DO+E)*DCOS(THETA)-B*E 

Y=B*(1.DO+E)*DSIN( THETA) 

UTHICK=-2.DO*Y*(1.DO-B*B/(X*X+Y*Y)) 

RETURN 

END 
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NSURF 


DOUBLE PRECISION FUNCTION NSURF(XROT) 
WRITTEN BY: M. OLESKIW ON: 800905 LAST MODIFIED: 811024 
CALCULATES THE UNROTATED X VALUE OF A POINT ON THE ACCRETED AEROFOIL 


SURFACE BASED UPON THE COLLISION EFFICIENCY, DIRECTION OF 
GROWTH, AND OLD AEROFOIL (ROTATED) SFC. POSITION. 


OLOiOlO.aV@Qc@) 


DOUBLE PRECISION XUR( 101), YUR(101),CU(100,3),XLR(101),YLR(101), 
-CL(100,3),C30.S30,XROT,D,LENG,LEN,LU(101),LL(101),DABS,DCOS, 
-L(31,5),Y¥0(31,5),XLRT,YLRT, XN, YN,DDD, XLRN, YLRN,UINF,PINF, 
-DSIGN,DSORT,ICE,NSURFY,CE,CEED(5,30,5),RL(101),CLL,KLL,RB, THK, 
- ALPHAR ,W(5),RU(101),CUU,KUU, XURT, YURT, XURN, YURN, TINF,EPS(5), 
.CFV(3,30,5),CFA(3,30,5),ACN, VTOT(31,5),ACOL(31,5),VTIMP,UIMP, 
.VIMP ,DMIN1,DMAX1,TI,PAR,RHOS,DD(5),C,VT,AC,DSIN,E(2), YOE(2) 
DOUBLE PRECISION MD,LMXCE(6),LOL,LDR,LMX,FL(5),FLV 


INTEGER JK,RUN,I.1ICT(5),ICU(5),ICL(5),NEU,NEL,NEL1,U,H5D(5), 
-DDISTN, ATHICK,NEU1,DENSE,TYPE,JUZ,H5S,NEUU,NELL,IuJ,II 


COMMON ALPHAR/FOIL/XUR,YUR,XLR, YLR/SPLINE/CU, CL/ROTP/C30, $30 
./IND/NSURFY,FL,ICE,I,JUK,RUN/LG/LU,LL/COL/L,YO,ICT,ICU,ICL 

. /NOSE/XN, YN/AERO4/NEU,NEL,NEUU,NELL/RC/RU,RL,ATHICK,DDISTN 
./WTS/W/CEM/LMXCE/CV/VTOT, ACOL/TRANS1/UINF ,PINF,TINF,EPS,DENSE 
./TRANS3/DD,C, TYPE, JZ/HERMT5/H5, H5D/CEV/CFV, CFA/EFF/CEED 


IN XROT=ROTATED X POSITION ON LOWER AEROFOIL SFC. 


=ON00 


O FORMAT(’OOUT OF BOUNDS IN SEARCHING FOR AEROFOIL’, 
» ‘GnORe CESSPLINES IN NSURE~) 


IF(JK.LT.1)UK=1 
RUN=RUN+ 1 

NEL1=NELL- 1 

NEU1=NEUU- 1 

I1l=I 

IF(LMXCE(6).LT.O0.D0)GOTO 120 

c 

C FOR THE UPPER SFC: 

C FIND THE APPROPRIATE AEROFOIL SPLINE SEGMENT 

320 IF(XROT.GT.XUR(UK))GOTO 305 
JK=JK- 1 
IF(JUJK.EQ.0)GOTO 600 
GOTO 320 

305 IF(XROT.LE.XUR(JUK+1))GOTO 310 
JUK=JUK+ 14 
IF(UK.LE.NEU1)GOTO 305 
GOTO 600 

310 D=XROT-XUR( UK) 

C FIND LENGTH ALONG SFC. FROM NOSE TO THIS POINT. 
CALL SFCLEN(D,LENG,CU(JUK,3),CU(UK,2),CU(UK, 1)) 
LEN=LU(JUK)+LENG 

C ROTATED COORDS. 

XURT=XROT 
YURT=YUR( UK )+((CU(JUK, 3) *D+CU( UK, 2) )*D+CU( UK, 1) )*D 
T SLOPE. 

5 Mah ec Ca pore a) sns2upo*cuCuK,2))*D4clU@Kr1)) 
IF(DABS(CUU).LT.1.0-10)GOTO 360 

C PERPENDICULAR SLOPE. 

KUU=- 1.DO/CUU 
GOTO 330 

360 ae) Aa ae 
DED RADIUS OF CURVATURE. 

530. RBCRU( JK) #(RU( UK+1)-RU( JK) )/(LU(UK+1)-LU(JK) )*LENG 
GOTO 230 
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NSURF 


C FOR THE LOWER SFC: 
C FIND THE APPROPRIATE AEROFOIL SPLINE SEGMENT 
120 IF(XROT.GT.XLR(JUK))GOTO 105 
UK=JK- 1 
IF(JUK.EQ.0)GOTO 600 
GOTO 120 
105 IF(XROT.LE.XLR(UK+1))GOTO 14110 
JK=JK+1 
IF(JUK.LE.NEL1)GOTO 105 
GOTO 600 
110 D=XROT-XLR( UK) 
C FIND LENGTH ALONG SFC. FROM NOSE TO THIS POINT. 
CALL SFCLEN(D,LENG,CL(JUK,3),.CL(UK,2),CL(UK, 1)) 
LEN=LL(JK)-LENG 
C ROTATED COORDS. 
XLRT=XROT 
YLRT=YLR(JUK)+((CL(UK,3)*D+CL (UK, 2) )*D+CL( UK, 1))*D 
C TANGENT SLOPE. 
CLL=((3.DO0*CL(UK,3)*D+2.DO*CL(UK,2))*D+CL(UK, 1) ) 
IF(DABS(CLL).LT.1.D-10)GOTO 4160 
C PERPENDICULAR SLOPE. 
KLL=-1.DO/CLL 
GOTO 130 
160 KLL=DSIGN(1.D10,-CLL) 
C BLENDED RADIUS OF CURVATURE. 
130 RB=RL(JUK)- (RL (UK+1)-RL( UK) )/(LL(UK+1)-LL( UK) ) * LENG 
€ 
C DETERMINE THE WEIGHTED COLLISION EFFICIENCY. 
230 ACN=0.DO 
VT=0.DO 
AC=0.DO 
MD=O0.DO 
RHOS=1.DO 
DO 200 J=1.DDISTN 
LDL=L(1,U) 
LDR=L(ICT(U),U) 
LMX=LMXCE (J) 
C FIND THE APPROPRIATE CE VS L SPLINE SEGMENT 
IF(FL(JU).NE.O.D0)GOTO 1400 
Te CI Ct appa 
220 IF(LEN.GT.L(I,U))GOTO 205 
I=I-1 
IF(I.EQ.0)GOTO 600 
GOTO 220 
205 IF(LEN.LE.L(I+1.JU))GOTO 210 
I=I+1 
IF(I.LE.ICT(JU))GOTO 205 
GOTO 600 
210 DDD=LEN-L(I.J) 
IF(H5D(J).EQ.0)CE=((3.DO*CEED(3,1,U)*DDD+2.DO*CEED(2,1,U))*DDD 
+CEED(1,.1.JU))*DCOS(ALPHAR ) 
IF(HSD(JU).£Q.1)CE=((((5.DO*CEED(5,1,U)*DDD+4 .DO*CEED(4,1,JU))*DDD 
+3.DO*CEED(3,1I,U))*DDD+2.DO*CEED(2,1,U))*DDD+CEED(1,1,uU)) 


*DCOS (ALPHAR ) 
GOTO 1390 

1400 IF(LEN.GE.LMX)GOTO 1110 
IF(LEN.LE.LDL)GOTO 1120 
FLV=FL(J)-O.9D0*FL(JU)/(LMX-LDL )*(LEN-LDL) 


GOTO 1200 
1110 IF(LEN.GE.LDR)GOTO 1120 
FLV=0. 1DO*FL(U)+0. 9DO*FL(J)/(LDR-LMX ) * (LEN-LMX ) 
GOTO 1200 
1120 FLV=FL(J) 
1200 E(1)=LEN-FLV 


E(2)=LEN+FLV 
DO 1430 IJ=1,2 
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NSURF 


IF(E(IJU).GT.L(1.U))GOTO 1440 
YOE(IJU)=YO(1,uU) 
GOTO 1430 
IF(E(IU).LT.L(ICT(JU),JU))GOTO 1450 
YOE(IU)=YOCICT(J),uU) 
GOTO 1430 
IF(E(IJU).GT.L(II,JU))GOTO 1460 
Il=II-1 
GOTO 1450 
IF(E(IJU).LE.L(II+1,JU))GOTO 1470 
LI=13+1 
GOTO 1460 
DDD=E(IJ)-L(II,u) 
IF(H5D(J).EQ.O)YOE(IJU)=((CEED(3,II,JU)*DOD 
+CEED(2,11,JU))*DDD+CEED(1,11,U))*DDD+YO(II,u) 
IF(HSD(JU).EQ. 1) YOE(IU)=((((CEED(5,11,U)*DDD 
+CEED(4,11.JU))*DDD+CEED(3,I1I.U))*DDD 
+CEED(2,11,JU))*DDD+CEED(1,11,U))*DDD+YO(II,uJ) 
CONTINUE 
CE=(YOE(2)-YOE(1))/2.D0/FLV*DCOS(ALPHAR) 
ACN=ACN+CE *W(J) 
IF(DENSE.EQ.0)GOTO 200 
IF(LEN.LE.L(ICT(JU),JU))GOTO 1385 
IF(U.GT.1)GOTO 200 
VT=VT+W(1)*VTOT(ICT(1),1) 
AC=AC+W(1)*DABS(ACOL(ICT(1),1)) 
MD=MD+W(1)*DD(-1) 
GOTO 200 
IF(LEN.GE.L(1,JU))GOTO 1380 
IF(JU.GT.1)GOTO 200 
VT=VT+W(1)*VTOT(1, 1) 
AC=AC+W(1)*DABS(ACOL(1,1)) 
MD=MD+W(1)*DD(1) 
GOTO 200 
DDD=LEN-L(I,uJ) 
VT=VT+W(U)*(((CFV(3,1,JU)*DDD+CFV(2,1,JU))*DDD+CFV(1,1,ud)) 
*DDD+VTOT(I,u)) 
AC=AC+W(U) *DABS(((CFA(3,1.U)*DDD+CFA(2,1,U))*DDD+CFA(1,1,U)) 
*DDD+ACOL(I,U)) 
MD=MD+W(J)*DD( J) 
CONTINUE 
IF(DENSE.EQ.0)GOTO 440 
UIMP=VT*DSIN(AC) 
VIMP=VT*DCOS(AC) 
IF (DENSE.EQ.1)VTIMP=DABS(VIMP ) *UINF 
IF (DENSE .EQ.2)VTIMP=DSQRT (UIMP*UIMP+VIMP*VIMP ) *UINF 
TI=DMAX1(TINF ,-20.D0) 
TI=DMIN1(TI,-5.00) 
PAR=-MD/2.DO*VTIMP/TI 
PAR=DMAX1(PAR,O.88D0) 
PAR=DMIN1(PAR, 16.29D0) 
RHOS=1. 1D2*(PAR**O.76D0)/3.17D2 


C CALCULATE THICKNESS FOR ASSUMED FLAT SFC. 


440 


THK=ICE*ACN/RHOS 
IF(ATHICK.EQ.0)GOTO 430 


C CALCULATE THICKNESS FOR CURVED SFC. 


C NEW 
430 


420 


THK =-RB+DSIGN(DSQRT(RB*RB+2.D0*RB*THK) ,RB) 


Seer COORDS: 

IF(LMXCE(6).LT.O.DO)GOTO 420 

XURN=XURT+DSIGN(DSORT ( THK*THK/( 1.D0+KUU*KUU) ) ,KUU) 
YURN=YURT+KUU* ( XURN-XURT ) 

NSURF =XURN*C30- YURN*S30+XN 

NSURF Y=XURN*S30+ YURN*C30+YN 


RETURN 
XLRN=XLRT-DSIGN(DSQRT( THK*THK/( 1 .DO+KLL*KLL)),KLL) 


YLRN=YLRT+KLL*(XLRN-XLRT) 
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NSURF =XLRN*C30+YLRN*S30+XN 
NSURF Y=-XLRN*S30+YLRN*C30+YN 
RETURN 

WRITE(6, 10) 

WRITE(7, 10) 

RETURN 

END 


SUBROUTINE PC4(EON,CDS,LAMBH, WARN) 


WRITTEN BY: M. OLESKIW ON: 800122 LAST MODIFIED: 810626 


INTEGRATE EQNS. OF MOTION USING THE 4TH ORDER PREDICTOR- 
CORRECTOR METHOD OF HAMMING. 


REF 


THE 


BURDEN, R.L., J.D. FAIRES, & A.C. REYNOLDS (1978), 


NUMERICAL ANALYSIS QA 297.B84 P.266 
HAMMING, R.W. (1973), NUMERICAL METHODS FOR SCIENTISTS & 
ENGINEERS, 2ND ED., QA 297 .H28 CHAPS 2 2non 23 


DOUBLE PRECISION XDS(6,2),UDS(6,2),AN(2,6,2),HT(2,6,2),YDS(6,2), 


.VDS(6,2),A0,A1,A2,B0,B1,B82,83,LAMBH,EIGMX,DTSO, 
-€O,C1,C2,0M1,D0,.D1,D2,UPI,UCI,VPI,VCI,MUAS,MVAS, 

.PUDS ,OTS(6,2),PVDS,MUDS,MVDS,CUDS,CVDS,UDSP1, VDSP 1 
.,FMU,FMV,UST,VST,ER1,ER2,PX0S,PYDS,MXDS,MYDS,CXDS,CYDS 

. UAS(6,2),VAS(6,2),RED(6,2),XPI,XCI,YPI,YCI,RE,CD,TS(500, 2) 


INTEGER I1(2),EQN.IM4(2),IM3(2),IM2(2),IM1(2),10(2),1P1(2), 


.CDS,WARN, MM 


COMMON/INTEG/AN,HT/PV/XDS, YOS,UDS,VDS 


./PCM/AO,A1,A2,B0,B1,B2,B3,C0,C1,C2,DM1,D0,D1.D2, 
.UPI,UCI,VPI,VCI,ER1,ER2,XPI,.XCI,YPI,YCI,UST,VST 
./LOC/TS,DTS,1,IM4,IM3,1IM2,IM1,10,IP1,MM 

. /REL/UAS,VAS,RED,CD 


EQN=DENOTES PORTION OF TOTAL SYSTEM OF EQUATIONS TO BE SOLVED. 
CDS=TYPE OF DRAG COEFFICIENT TO BE USED. 

LAMBH=STABILITY PARAMETER. 

WARN=WARNING OF INSTABILITY (O OR 1). 


DTSO=DTS(IO(MM),MM) 
TSC I(MM)+1,MM)=TS(I(MM) ,MM)+DTSO 


PREDICTOR 
PXDS=AO*XDS(IO(MM) ,MM)+A1*XDS(IM1(MM) ,MM)+A2*XDS(IM2(MM) ,MM) 


.+DTSO*(BO*UDS(IO(MM) ,MM)+B1*UDS(IM1(MM) ,MM)+ 
.B2*UDS(IM2(MM) ,MM)+B3*UDS(IM3(MM),MM) ) 


PYDS=AO*YDS(IO(MM) ,MM)+A1*YDS(IM1(MM) ,MM)+A2*YDS(IM2(MM) ,MM) 


_+DTSO*(BO*VDS(IO(MM) ,MM)+B1*VDS(IM1(MM) ,MM)+ 
.B2*VDS(IM2(MM) ,MM)+B3*VDS(IM3(MM) ,MM) ) 


PUDS=AO*UDS(IO(MM) ,MM)+A1*UDS(1M14 (MM) ,MM)+A2*UDS(IM2(MM) ,MM) 


_+DTSO*(BO*AN( 1, TO(MM) ,MM)+B1*AN(1,1M1(MM),MM)+ 
-B2*AN(1,IM2(MM),.MM)+B3*AN( 4, 1M3(MM).MM) ) 


PVDS=AO*VDS(I10(MM) ,MM)+A1*VDS(IM1(MM),MM)+A2*VDS(IM2(MM) , MM) 


_4DTSO*(BO*AN(2,10(MM) ,MM)+B1*AN(2, IM1(MM),MM)+ 
_B2*AN(2,1M2(MM),MM)+B3*AN(2, IM3(MM),MM) ) 


C MODIFICATION OF THE PREDICTOR 


MXDS=PXDS-ER1*(XPI-XCI) 
MYDS=PYDS-ER1*(YPI-YCI) 
MUDS=PUDS-ER1*(UPI-UCI ) 
MVDS=PVDS-ER1*(VPI-VCI ) 
CALL AIRVEL(MXDS,MYDS,MUAS,MVAS,4) 
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CALL DRAG(MUDS ,MVDS ,MUAS ,MVAS,CDS,RE,CD) 

CALL ACCN(MUDS ,MVDS,MUAS ,MVAS,RE,CD,EQN,TS(1(MM)+1,MM),0) 
FMU=AN(1,1P41(MM),MM) 

FMV=AN(2,IP1(MM),MM) 


C THE CORRECTOR 
CXDS=CO*XDS(IO(MM) ,MM)+C1*XDS(IM1(MM) ,MM)4+C2*XDS(IM2(MM),MM) 
.+DTSO* (DM1*MUDS+DO*UDS(10(MM) ,MM)+01*UDS(IM1(MM),MM)+D2* 
.UDS(IM2(MM) ,MM)) 

CYDS=CO*YDS(1IO(MM) ,MM)+C1*YDS(IM1(MM) ,MM)+C2*YDS(IM2(MM),MM) 
.+DTSO*(DM1*MVDS+DO*VDS(IO(MM) ,MM)+D1*VDS(IM1(MM),MM)+D2* 
.VDS( IM2(MM) ,MM) ) 

CUDS=CO*UDS(IO(MM) ,MM)+C1*UDS(IM1(MM) ,MM}+C2*UDS(IM2(MM) ,MM) 
.+DTSO*(DM1*FMU+DO*AN( 1, 10(MM) ,.MM)+D1*AN(1,IM1(MM),MM)+ 
.D2*AN(1,1M2(MM),MM) ) 

CVDS=CO*VDS(IO(MM) ,MM)+C1*VOS(IM1(MM) ,MM)+C2*VDS(IM2(MM),MM) 
. +DTSO* (DM1*FMV+DO*AN(2, 10(MM),MM)+D1*AN(2,1M1(MM) ,MM)+ 
.02*AN(2,IM2(MM),MM) ) 

c 

C FINAL VALUES 
XDS(IP1(MM) .MM)=CXDS+ER2*(PXDS-CXDS) 

YDS(IP1(MM) ,MM)=CYDS+ER2*(PYDS-CYDS) 
UDS(IP1(MM) ,MM)=CUDS+ER2*(PUDS-CUDS ) 
VDS(IP1(MM) ,MM)=CVDS+ER2*(PVDS-CVDS) 

C NEW VALUES FOR ACCELERATION AT I+1 
CALL AIRVEL(XDS(IP1(MM),MM),YDS(IP1(MM),MM),UAS(IP1(MM),MM), 
.VAS(IP1(MM),MM), 13) 

CALL DRAG(UDS(IP1(MM),MM),VDS(IP1(MM),MM),UAS(IP1(MM),MM), 
.VAS(IP1(MM) ,MM),CDS,RED(IP1(MM),MM),CD) 

CALL ACCN(UDS(IP1(MM),MM),VDS(IP1(MM),MM),UAS(IP1(MM),MM), 
.VAS(IP1(MM),MM),RED(IP1(MM),MM),CD,EON, 

.TS(I(MM)+1,MM),O) 

CALL STAB(RED(IP1(MM),MM),CD,UDS(IP1(MM),MM),VDS(IP1(MM),MM), 
.UAS(IP1(MM),MM),VAS(IP1(MM),MM),CDS,EIGMX) 
LAMBH=EIGMX*DTSO 

IF(LAMBH.LT.-1.3D0)WARN=1 

UDSP1=AN(1,1P1(MM),MM) 

VDSP1=AN(2,1P1(MM),MM) 

IF(EQN.NE.2)GOTO 100 

CALL ACCN(UDS(IP1(MM),MM),VDS(IP1(MM),MM),UAS(IP1(MM),MM), 
.VAS(IP1(MM),MM),RED(IP1(MM),MM),CD,EQN, 

.TSCI(MM)+4,MM),1) 

C 

C CALCULATE STABILITY INDICES 

100  UST=(FMU-UDSP1)/(MUDS-UDS(IP1(MM) ,MM) ) 
VST=(FMV-VDSP1)/(MVDS-VDS(IP1(MM),MM) ) 


XPI=PXDS 

XCI=CXDS 

YPI=PYDS 

YCI=CYDS 

UPI=PUDS 

UCI=CUDS 

VPI=PVDS 

VCI=CVDS 

DTS(IP1(MM),MM)=DTSO 

RETURN 

END 
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Cc 

DOUBLE PRECISION FUNCTION PJK(X.Y) 
: WRITTEN BY: M. OLESKIW ON: 801001 LAST MODIFIED: 810726 
Cc 


C CALCULATES ANALYTICAL VALUE OF STREAMFN. AT TRANSFORMED COORDS X,Y 
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PLISZ 

: USING THE EXACT AEROFOIL GENERATION METHOD. 

DOUBLE PRECISION ALPHAR,A,B,E,XI,ETA.X,Y,G,H,u; 
2 -DSORT ,.XX,DSIGN, YY,T2,T1,T3,DSIN,DLOG,DCOS,DABS 

COMMON ALPHAR/JOUK1/A,B,E 
CIN x= 
% IN gee it alae ae COORDINATE SYSTEM AT WHICH PSI IS 
Cc 


Oa eee ONETE)/2 .D0/ (1 Ora DOTESESE) 
=y 
G=XI*XI-ETA*ETA-4 .DO*B*B 
H=2 .DO*XI*ETA 
J=DSQRT (G*G+H*H) 
IF(U+G.GE.O.DO)GOTO 100 
XX=XI/2.DO 
GOTO 200 
100 XX=(XI+DSIGN(DSORT((J+G)/2.D0),XI))/2.D0 
200: IF(DABS(Y).GT.1.D-60)GOTO 210 
YY=0.DO 
GOTO 220 
210 YY=(ETA+DSIGN(DSORT((JU-G)/2.D0),ETA))/2.D0 
220 T1=YY*DCOS(ALPHAR )-(XX+B*E ) *DSIN(ALPHAR) 
T2=A*A*T1/((XX4+B*E ) **2+VY*YY ) 
T3=2.DO*A*DSIN(ALPHAR ) *DLOG(DSQRT( (XX+B*E)**2+YY*VY)/A) 
PJUK=T1-T2+T3 


RETURN 
END 
Cc 
Cc SSSSSsSesSSerseSfSSPSSSSSfPSPSE2qSFSSSSS SS 2SSSSSS2S22SS2222S2S222222282222222222222= 
(e 
SUBROUTINE PLTSZ(XMIN, XMAX, YMIN, YMAX,XL,YB,PX,PY,IRX,IRY, 
.NDCPX ,NDCPY ) 
Cc 
C WRITTEN BY: M. OLESKIW ON:800627 LAST MODIFIED:810420 
Cc 
C DETERMINE PARAMETERS NECESSARY FOR SCALING OF A PLOT AND ITS AXES 
Cc 


REAL XPAR(4,24),YPAR(4,24),XD,FLOAT,AINT,XMIN, XMAX, 
.XL,YD, YMIN, YMAX, YB,DX,DY,XR,YT,DDX,DDY,ABS 


Cc 
INTEGER PX,PNX,PY,PNY,1I,JU,IX,IRX,INT,IY,IRY,IFIX,NDCPX,NDCPY 


Cc 
COMMON/PLTPRM/XPAR, YPAR 


C 
C IN XMIN= 

C IN XMAX= 

C IN YMIN= 

C IN YMAX= 

C OUT XL=LEFT. EDGE OF PLOT 

C OUT YB=BOTTOM EDGE OF PLOT 

C OUT PX=POWER OF TEN IN X~-AXIS RANGE 

C OUT PY=POWER OF TEN IN Y-AXIS RANGE 

C OUT IRX=MIN. LENGTH OF X AXIS. 

C OUT IRY=MIN. LENGTH OF Y AXIS. 

C OUT NDCPX=NO. OF DECIMAL PLACES IN X-AXIS SCALES. 
C OUT NDCPY=NO. OF DECIMAL PLACES IN Y-AXIS SCALES. 
C 
1 
C 
e 


fe) FORMAT(8F 10.0) 


READ IN PLOTTING PARAMETERS 


HOF 10Nea1=H 3s 24 
READ(3. 10)(XPAR(JU,1),JU=1,4), (YPAR(U,1).JU=1,4) 


Sets 


OH T SH 


i 10, 7, OATS 
:. BEC PP NY MO T2O. ey 


chat, 6000, S050; et 
Pan 


a, Oat sata gar- | 
& Egm 1) 0 ee ' 
>i tol epee Te HOTZVe ti : 


\4saed0e foe. 1 agate a° "0a, ae 


aee*t 2-0 TSAaTa~ ts 
AYS* D001. & 
: Livreerep oh) 
Ne bar wiaatoe: 0. 38. 
i } ai) Sy ene 
fy twora wisteqern) 
—- die Tacky ve 
00..G" 


| oe 
ou t\i¢erg icseee 


i). C\eogs if 


| ae Tora+cny- | 
oy fons BH FET eae 

RViVVS¥YeE* tila i) Jui?) Me TSO F AY 
-OT*ET ot 


if 


eee eee eee eer ih ih ah salen ln chad . 


7S! 607. 9. 89, O- 0, y e, Lan, Mere hearse wut 


S1-Ql%- G3Tasuem Tea, RETA We yoasve re = ; 
zona 216 cash 70344 ‘ib Ssh aE shana anrawARad . 


, Chee Vile DWTtA, ThOS9 Gee baa oee. poe 
aon. ¢OG, #08, ais ster we 


roa, ee, er OL, rad ivt, TH. rae 


7 oe cet 101 hin 


im, Keb ments soca 


209 


PLTSZ 


101 CONTINUE 


ENTRY PLTSZE(XMIN, XMAX,YMIN, YMAX,.XL,YB,PX,PY,IRX,IRY, 
.NDCPX ,NDCPY ) 

PNX=0 

PNY=O 

ca 

C DETERMINE THE PLOTTING RANGE OF THE X VARIABLE 

100 PX=PNX 
XD=(XMAX-XMIN) *10.0**PX 
IF(XD.GT.22.0)PNX=PNX-1 
IF(XD.LT.2.20001 )PNX=PNX+14 
IF (PNX.NE.PX)GOTO 100 

C PX GIVES 1/(POWER OF TEN) OF THE X VARIABLE PLOTTING RANGE 
IxX=1 

120 IRX=INT(XD)+I1xX 
IF(IRX.NE.7.AND.IRX.NE.9.AND.IRX.NE.11.AND.IRX.LT.13)GOTO 140 
IF(IRX.EQ.16.0R.IRX.EQ.20.0R.IRX.EQ.24)GOTO 140 
IX=I1X+1 
GOTO 120 

140 DX=FLOAT(IRX)/10.0**PX/XPAR(1,IRX) 

C SET THE’ X VALUE AT THE LEFT GRAPH EDGE 
IF(XMIN.LT.O.0)XL=AINT(XMIN/DX- 1.0) *DX 
IF(XMIN.GE.0.0)XL=AINT( XMIN/DX ) *DX 

C SET X VALUE AT RIGHT GRAPH EDGE. 

XR=XL+XPAR(41,IRX)*DX 
IF(XR.GE.XMAX)GOTO 105 
IX=IX+1 

GOTO 120 

C DETERMINE CORRECT NUMBER OF DECIMAL PLACES ON AXIS SCALES. 

105 NDCPX=0 
DDX=ABS(DX)+1.E-6 

160 IF (DDX-AINT(DDX).LT.2./10.**(6-NDCPX))GOTO 150 
NDCPX=NDCPX+ 4 
DDX=DDX*10.0 
GOTO 160 

150 IF(IFIX((XR-XMAX)/DX).LE.IFIX((XMIN-XL)/DX))GOTO 110 

C CENTRE THE PLOT. 

XL=XL-DX 
XR=XR-DX 
GOTO 150 

Cc 

C DETERMINE THE PLOTTING RANGE OF THE Y VARIABLE 

110 PY=PNY 
YD=(YMAX-YMIN)*10.0**PY 
IF(YD.GT.22.0)PNY=PNY-1 
IF(YD.LT.2.20001)PNY=PNY+1 
IF(PNY.NE.PY)GOTO 110 

C PY GIVES 1/(POWER OF TEN) OF THE Y VARIABLE PLOTTING RANGE 
LY=4 

130 IRY=INT(YD)+1Y 
IF(IRY.NE.13.AND.IRY.NE.15.AND.IRY.NE.17 
_. AND. IRY.NE.19.AND.IRY.NE.21.AND.IRY.NE.23)GOTO 170 


LY=hy+ 1 
GOTO 130 

170 DY=FLOAT(IRY)/10.0**PY/YPAR(1,IRY) 

C SET THE Y VALUE AT THE BOTTOM OF THE GRAPH 
IF(YMIN.LT.O.0)YB=AINT(YMIN/DY-1.0)*DY 
IF (YMIN.GE.0.0)YB=AINT(YMIN/DY ) *DY 

C SET THE Y VALUE AT THE TOP OF THE GRAPH. 
YT=YB+YPAR(1,IRY)*DY 
IF(YT.GE.YMAX)GOTO 135 
Ty=Iy+1 

TO 130 
Cc PET ERMIKE CORRECT NUMBER OF DECIMAL PLACES ON AXIS SCALES. 


135 NDCPY=O 
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POT 1 


DDY=ABS(DY )+1.E-6 
190 IF (DDY-AINT(DDY).LT.2./10.**(6-NDCPY))GOTO 180 
NDCPY=NDCPY+ 4 
DDY=DDY* 10.0 
GOTO 190 
180 IFC IFIX((YT-YMAX)/DY) .LE.IFIX( (YMIN-YB)/DY) )RETURN 
CUCENTRE SHE. PUOT: 


YB=YB-DY 
Von = Vee, 
GOTO 180 
END 
C 
Gc SSS SSS SSS SSS SSS SSH SHS SSS SSS SSS SSS ST SS SSS SHS HS Se SSH ese ses esse sees 
Cc 
SUBROUTINE POT1 
C 
C WRITTEN BY: M. OLESKIW ON:781129 LAST MODIFIED:810726 
Cc 
C SOLVE FOR SURFACE VORTEX DENSITY ON 1 ELEMENT AEROFOIL IN POTENTIAL 
C FLOW, GIVEN COORDS. OF AEROFOIL SURFACE. 
C REF: KENNEDY, J.L. & D.J. MARSDEN (1976), CAN. AERO. & SPACE JOUR., 
Cc V22e OW 26 
C ADAPTED FROM KENNEDY’S PROGRAM IN SCSS:LIB 
C SUBROUTINE: LEQT1F OF *IMSLDPLIB: LINEAR EQN. SOLN., FULL STORAGE 
C MODE, SPACE ECONOMIZER SOLN. 
Cc 
DOUBLE PRECISION XE(101),YE(101),xC(101).YC(101),R( 101), 
.DATAN, DABS ,DSIGN,DLOG,SI(100),CO(100),PI,CL, 
-K(101,101),WKAREA(101),D(100),XT,YT,DE,DELTA, 
.DXC ,DYC,B.A,R1S.R2S,R3S,7T3,7T1,7T2,ALPHAR,DCOS,DSIN,DSORT 
Cc 
INTEGER N,N1,U,JU1,IDGT, IER, 1,NCOU,NCOU1,NCOL, JJ 
Cc 
COMMON ALPHAR.PI/AERO1/XE, YE/AERO3/NCOU, NCOL/AERO2/XC,YC,R,D,SI,CO 
Cc 
10 FORMAT(’‘OFOR EQN. SOLN. IER=’,13) 
S FORMAT( ‘OTHE POTENTIAL FLOW LIFT COEFFICIENT IS’,F9.5) 
16 FORMAT(’1THE POTENTIAL FLOW LIFT COEFFICIENT IS’,F9.5) 
20 FORMAT(’-CONTROL PT. X COORD. Y COORD. SFC. AIR VEL.’) 
30 FORMAT(’ ’,16,5X,2F10.5,F11.5) 
Cc 
NCOU 1=NCOU- 1 
N=NCOU1+NCOL - 1 
Ni=N+1 
Cc 


C CALC. ELEMENT LENGTHS (D) AND CONTROL POINTS (XC,YC) 
C XE(1)=XE(2*NCO-1)=XE(N1)=LEADING PT. X COORD. 
DO 110 J=1,N 
J1=J+4 
XC(JU)=(XE(d)+XE (U1) ) *O0.5D0 
YC(J)=(YE(U)+VE(U1) )*0.5D0 
D(U)=DSQRT( (XE(U1)-XE(J) )**2+(YE(U1)-YE(U) )**2) 

110 CONTINUE 
C FIND TRAILING POINT COORDS. XC(N1),YC(N1): FIG.5 

XT =XE(NCOU) - (XC(NCOU1)+XC(NCOU) )*O.5D0 

YT=YE(NCOU)-( YC(NCOU1 )+YC(NCOU) )*O.5D0 

XC(N1)=XE(NCOU)+1.0-2*XT 

YC(N1)=YE(NCOU)+1.D-2*YT A pais 

MATRICES K AND R: EQNS. 
: nOuree EACH SFC. ELEMENT u (COLUMN OF K) AND ROW OF R 

120 J=1,N1 

RJ) z¥C( J) *DCOS(ALPHAR)-XC( J) *DSIN(ALPHAR) 
IF(J.EQ.N1)GO TO 140 
J1i=J+1 
DE=D(uU) 
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€ CALCULATE ANGLE OF ELEMENT TO X-AXIS. 
CO(U)=(XE(JU1)-XE(J))/DE 
SI(U)=(YE(U1)-YE(U))/DE 
DELTA=DE/2.D0 

140 DO 130 I=1,N1 
IF(JU.EO.N1)GO TO 150 

C FIND DISTANCE BETWEEN CONTROL PTS. I AND J. 
DXC=XC(I)-xC(J) 

DYC=YC(I)-YC(J) 

C CALCULATE COMPONENTS OF EQN. 9 AND FIG 2 
B=DXC*CO(J)+DYC*SI(uU) 
A=DYC*CO(J)-DXC*SI (J) 
R1S=A*A+(B+DELTA)*(B+DELTA) 
R2S=A*A+(B-DELTA)*(B-DELTA) 
R3S=A*A+B*B-DELTA*DELTA 
IF(R3S.LT.1.D-30)GO TO 160 
T3=DATAN(2.DO*A*DELTA/R3S ) 

GO TO 170 

160 IF(DABS(A).LT.1.D-30)GO TO 180 
T3=DATAN( (B+DELTA)/A)-DATAN((B-DELTA)/A) 
GO TO 170 

180 T3=DSIGN(PI,A) 

170 T1=(B+DELTA)*DLOG(R1S) 
T2=(B-DELTA)*DLOG(R2S) 
K(I,JU)=(T1-T24+2.DO*A*T3-4 .DO*DELTA)/4.D0/PI 
GO TO 130 

C FOR LAST COLUMN OF K 

150 K(I,JU)=1.D0 

130 CONT INUE 

120 CONTINUE 


CE oo OK IK oR ok OK oe eof aK oo RK OK KO IE oko a ak Kak ak aK ak ak ok ak ok 


IDGT=8 
G 2K KK OK KK Ko ok OK OK KK ok eo eK oo ok ok ok ok ok ok ok ak ok ok kK ok ok ok ok ok ok OK a 9 ak ok ok Ka aK ak ok ak ak ok ak ok ok ok ok ok ok 
CALL LEQT1F(K.1,N1, 101,R, IDGT,WKAREA, IER) 
C ON OUTPUT, THE SOLN. IS INR 
(a 
C CALCULATE THE LIFT COEFFICIENT. 
CL=0.DO 
DO 200 JJ=1,N 
CL=CL-2.DO*R( JU) *D( JU) 
200 CONTINUE 
WRITE(6,10) IER 
WRITE(6,15)CL 
WRITE(7,16) CL 
WRITE(7,20) 
C OUTPUT AEROFOIL COORDS. AND SFC. VELOCITY. 
DO 210 JJ=1,N1 
WRITE(7,30)JuU, XC(JU). YC(JUJ),R( Jd) 


210 CONTINUE 
RETURN 
END 
—— 
G He eK HS SH HK SK KK KK SHE SSK SKK SSS SS SSH SSH SSS SH SS SSS HSS SSS SSS SSS SSS SSS SSS SSS 
Cc 


SUBROUTINE RK4(EQN, CDS, LAMBH, WARN) 


WRITTEN BY: M. OLESKIW ON: 790926 LAST MODIFIED: 810703 


INTEGRATE THE DROPLET EQNS. OF MOTION (IN X AND Y) USING THE 4TH 


ORDER RUNGE-KUTTA TECHNIQUE. 
REF: BURDEN. RL. ew Om SEALRESS (Oo VAaGs REYNOLDS (1978), NUMERICAL 
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TS(6,2),XDS(6,2) 
DOUBLE PRECISION K1,L1,K2,L2,K3,L3,K4,L4,D ~2)s : 
-UDS(6.2), YDS(6,2).VDS(6.2),AN(2,6,2),HT(2,6,2),EIGMX,LAMBH, 
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-M1,M2,M3,M4,N1,N2,N3,N4,U1,U2,U3,V1,V2,V3,CD,RE,RED(6,2), 
-VAS(6,2),UAS(6,2),7S(500,2) ,DTSO, TSO, XDSO, YDSO, UDSO, VDSO 


INTEGER 1(2),EON,IM4(2),IM3(2),1M2(2),I1M1(2),10(2),IP1(2), 


-MM,CDS,WARN 


COMMON /INTEG/AN,HT/PV/XDS, YDS,UDS,VDS 


./LOC/TS,DTS,1,1IM4,IM3,IM2,1M1,10,IP1,MM 
. /REL/UAS,VAS,RED,CD 


EQN=DENOTES PORTION OF TOTAL SYSTEM OF EQUATIONS TO BE SOLVED. 
CDS=TYPE OF DRAG COEFFICIENT TO BE USED. 

LAMBH=STABILITY PARAMETER. 

WARN=WARNING OF INSTABILITY (0 OR 1). 


TSO=TS(I(MM) ,MM) 
DTSO=DTS(IO(MM) , MM) 

XDSO=XDS(IO(MM) , MM) 

YDSO=YDS(IO(MM) ,MM) 

UDSO=UDS(IO(MM),MM) 

VDSO=VDS(IO(MM) , MM) 

TS(I(MM)+1,MM)=TSO+DTSO 

K1=DTSO*UDSO 

L1=DTSO*VDSO 

M1=DTSO*AN(1,I0(MM),MM) 
N1=DTSO*AN(2,I0(MM),MM) 

CALL AIRVEL(XDSO+K1/2.D0, YOSO+L1/2.D0,U1,V1,4) 
CALL DRAG(UDSO+M1/2.D0, VDSO+N1/2.D0,U1,V1,CDS,RE,CD) 


K2=DTSO*(UDSO+M1/2.D0) 
L2=DTSO*(VDSO+N1/2.D0) 
CALL ACCN(UDSO+M1/2.D0, VDSO+N1/2.D0,U1,V1,RE,CD,EQN, 


.TSO,0) 


M2=DTSO*AN(1,IP1(MM),MM) 

N2=DTSO*AN(2,IP1(MM),MM) 

CALL AIRVEL(XDSO+K2/2.D0, YDSO+L2/2.D0,U2,V2,4) 

CALL DRAG(UDSO+M1/2.D0, VDSO+N1/2.D0,U2,V2,CDS,RE,CD) 


K3=DTSO*(UDSO+M2/2.D0) 
L3=DTSO* (VDSO+N2/2.D0) 
CALL ACCN(UDSO4+M2/2.D0, VDSO+N2/2.00,U2.V2,RE,CD,EON, 


. TSO+DTSO/2.D0,0) 


M3=DTSO*AN(1,1P1(MM),MM) 
N3=DTSO*AN(2.1P1(MM),MM) 

CALL AIRVEL(XDSO+K3, YDSO+L3,U3,V3,4) 

CALL DRAG(UDSO+M3, VDSO+N3,U3,V3,CDS,RE,CD) 


K4=DTSO*(UDSO+M3 ) 
L4=DTSO*(VDSO+N3 ) 
CALL ACCN(UDSO+M3, VDSO+N3,U3,V3,RE,CD,EQN, 


. TSO+DTSO/2.D0,0) 


M4=DTSO*AN(1,1P1(MM),MM) 
N4=DTSO*AN(2,1P1(MM),MM) 


DROPLET POSITION AT I+1 
XDS(IP1(MM) ,MM)=XDSO+(K1+2.DO*K2+2.DO*K3+K4)/6.D0 


YDS(IP1(MM) ,MM)=YDSO+(L1+2.DO*L2+2.DO*L3+L4)/6.D0 

VELOCITIES AT I+1 

UDS(IP1(MM) ,MM)=UDSO+(M1+2.DO*M2+2.DO*M3+M4)/6.DO 

VDS(IP1(MM).MM)=VDSO+(N1+2.DO*N2+2.DO*N3+N4 )/6 .DO 
ERATIONS AT I+1 

OO L ATRVEL(XDS(1P1(MM),.MM) , YDSCIP1(MM) , MM), 

UAS(IP1(MM).MM),VAS(IP1(MM),MM), 13) 


CALL DRAG(UDS(IP1(MM),MM),VDS(IP1(MM),MM),UAS(IP4(MM),MM), 


VAS(IP1(MM),MM),CDS,RED(IP1(MM),MM),CD) 


“CALL ACCN(UDS(IP1(MM),MM),VDS(IP1(MM),MM),UAS(IP1(MM),MM), 
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-VAS(IP1(MM),MM),RED(IP1(MM),MM),CD. EQN, 
.TSCI(MM)+41,MM),0) 


CARE STAB(RED(IP1(MM),MM),CD,UDS(IP1(MM),MM),VDS(IP1(MM),MM), 


-UAS(IP1(MM),MM),VAS(IP1(MM),MM),CDS, EIGMX) 


LAMBH=EIGMX*DTSO 

IF (LAMBH.LT.-2.7D0)WARN=1 
DTS(IP1(MM) ,MM)=DTSO 
IF(EQN.NE.2)RETURN 


CALL ACCN(UDS(IP1(MM),MM),VDS(IP4(MM),MM),UAS(IP1(MM),MM), 


-VAS(IP1(MM),MM),RED(IP1(MM),MM),CD,EQN,TS(I(MM)+1,MM), 1) 


RETURN 
END 
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SUBROUTINE SFC(X,Y,S,L,LEN) 


WRITTEN BY: M. OLESKIW ON:800623 LAST MODIFIED:811018 


CALCULATES Y VALUES AND THE LENGTH FROM THE NOSE 
ON THE SFC. OF THE AEROFOIL BY A CUBIC SPLINE INTERPOLATION 


DOUBLE PRECISION XN, YN, XUR( 101), YUR(101),CU(100,3),CL(100,3), 


.XLR(101),YLR(101),XB,DELTA,DELTAP,DABS,DSIGN, DATAN, DATAN2, 
.§30,C30,XR,YR,X,Y,LU(101),LL(101),LEN,LENG,D,AS,RS,ALPHAR,PI, 
-XU( 101), YU(101),XL(101),YL(101),YG,DSQRT .DFLOAT 


INTEGER S,L,JU,JUL,NEU1,NEU,NEL1,NEL,IU,IL,NEUU,NELL,NEUU1,NELL1 


COMMON ALPHAR,PI/NOSE/XN, YN/LG/LU,LL/FOIL/XUR, YUR,XLR,YLR 


. /ROTP/C30, S30/AERO4/NEU,NEL,NEUU,NELL 
./SRCH/D,IU,IL/SA/AS/SPLINE/CU,CL/SFCS/XU, YU,XL,YL 


X=POINT AT WHICH Y VALUE IS TO BE CALCULATED 
Y=SFC. POSITION ON SPLINE 
S$=O:LOWER SFC. 


1ZUPRRERESEC- 
L=1:FIND LENGTH ALONG AEROFOIL SFC. FROM NOSE TO (X,Y) 


LEN=LENGTH ALONG AEROFOIL SFC. FROM NOSE TO (X,Y) 


‘ 


FORMAT(’OOUT OF BOUNDS ON SEARCHING FOR SFC. POSITION ‘’, 


./IN ROUTINE SFC’) 


JU=1 
JL=1 


C ROTATED X COORD. 


Cc 
C FOR 


C 


IF(S.LE.O)GOTO 150 


THE SUPPERS SEC: 

NEUU 1=NEUU- 1 
NEU1=NEU- 4 
IF(X.GT.XN)GOTO 121 
IF(X.LT.XN)GOTO 600 
Y=YN 

LEN=0.DO 

AS=PI/2.D0 

RETURN 


C FIND THE APPROPRIATE SPLINE SEGMENT 


124 


106 


IF(X.GT.XU(IU))GOTO 106 
IU=IU-1 
IF(IU.EQ.0)GOTO 600 


GoTa 124 
IF(X.LE.XU(IU+1))GOTO 111 
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SFC 


IU=IU+1 
IF(IU.LE.NEU1)GOTO 106 
GOTO 600 
114 IF(IU.GT.NEUU1)GOTO 700 
YG=YU(IU)+(YU(TU+1)-YU( IU) )/(xU(1U+4)-xXU(IU)) 
.*(X-XUCIU) ) 
XR=(X-XN)*C30+(YG-YN)*S30 
120 IF(XR.GT.XUR(IU))GOTO 105 
IU=IU-1 
IF(IU.EQ.0)GOTO 600 
GOTO 120 
105 IF(XR.LE.XUR(1IU+1))GOTO 1410 
IU=IU+1 
IF(IU.LE.NEU1)GOTO 105 
GOTO 600 
110 D=XR-XUR(IU) 
C ROTATED Y COORD. 
YR=((CU(IU,3)*D+CU(IU,2))*D+CU( IU, 1))*D+YUR( IU) 
C TANGENT LINE SLOPE 
RS=(3.DO*CU(IU,3)*D+2.DO0*CU(IU,2))*D+CU(IU, 1) 
IF(DABS(RS).GT.1.020)RS=DSIGN(1.D20,RS) 
XB=XR*C30-YR*S30+XN 
DELTA=X-XB 


CO KR OK OK EK oO oo KOK EK oo 2K ok fo oo oo Eo ok oko oe kok ok ok ok ok ok ak ok ok ok ok ok ok 


IF (DABS(DELTA).LE.1.B-10)GOTO 400 
2K OK KK OK OK IK OK ok Rk Ko KKK OK KK KK ok ok ok KK og oe ok ok ok oie ko xk 2k 2k 2K ok ok ok ok ok oo aK 3K ok oo ok ok 3k ak ok ok ok ok ok ok ok ok ok 
USE NEWTON-RAPHSON METHOD TO CONVERGE TO CORRECT XR,YR. 

DELTAP=-C30+S30*RS 

XR=XR-DELTA/DELTAP 

IF(XR.LE.O.DO)XR=1.D-7*DFLOAT (JU) 

JU=JU+ 1 

GOTO 120 


O® 


G 
C UNROTATED Y COORD. 
400 Y=YR*C30+YN+XR*S30 
C ANGLE OF TANGENT LINE FROM X AXIS 
AS=DATAN(RS )+DATAN2(S30,C30) 
IF(L.EQ.O)RETURN 
CALL SFCLEN(D,LENG,CU(IU,3),CU(IU,2),CU(IU,1)) 
LEN=LU(IU)+LENG 


RETURN 

C 

700 Y=DSQRT(0O.25D0-(X-0.5D0)**2) 
LEN=0.DO 
RETURN 

C 


C FOR THE LOWER SFC. 
150 NEL1=NEL-1 
NELL4=NELL-1 
C FIND THE APPROPRIATE SFC. SPLINE SEGMENT 
221 IF(X.GT.XL(IL))GOTO 206 
IL=IL-1 
IF(IL.EQ.0)GOTO 600 
GOTO 22:4 
206 IF(X.LE.XL(IL+1))GOTO 211 
IL=IL+1 
IF(IL.LE.NEL1)GOTO 206 
GOTO 600 
at IF(IL.GT.NELL1)GOTO 800 
YG=YL(IL)+#(YL(IL+1)-YLCIL) )/(XL(IL4+1)-XL(IL)) 
*(X-XL(IL)) 
XR=(X-XN) *C30-(YG-YN)*S30 
220 IF(XR.GT.XLR(IL))GOTO 205 
IL=IL-1 
IF(IL.EQ@.0)GOTO 600 
GOTO 220 
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SFCLEN 


205 IF(XR.LE.XLR(IL+1))GOTO 210 
IL=IL+1 
IF(IL.LE.NEL1)GOTO 205 
GOTO 600 
210 D=XR-XLR(IL) 
C ROTATED Y COORD. 
YR=((CLCIL,3)*D+CL(IL,2))*D+CL(IL,1))*D+YLR(IL) 
C TANGENT LINE SLOPE 
RS=(3.DO*CL(IL,3)*D+2.DO*CL(IL,2))*D+CL(IL, 1) 
IF (DABS(RS).GT.1.D20)RS=DSIGN(1.D20,RS) 
XB=XR*C30+YR*S30+XN 
DELTA=X-XB 


G 2K IE a a aK oo aK ok ook oko oe ok fe ok ok oka ok oie ie ok ok oe ke kK aK a a ok aK IK ROK I aK RK ok aK ak ok ok ok ok ak ok 


IF (DABS(DELTA).LE.1.D-10)GOTO 500 
€ SEK 2 ok KK KK a ok ok ok ok ok ok ok ok ok ok ok ok ok ak ok ok ok oie oi se oe ofc ook ok oe aK aI a ok Ka ok ok ao a oI a KK ok ak ok ok ok ok ok 
C USE NEWTON-RAPHSON METHOD TO CONVERGE TO CORRECT XR,YR. 
DELTAP=-C30-S30*RS 
XR=XR-DELTA/DELTAP 
IF(XR.LE.0.D0)XR=1.D-7*DFLOAT (JL) 
UL=JL+1 
GOTO 220 
( 
C UNROTATED Y COORD. 
500 Y=-XR*S30+YR*C30+YN 
C ANGLE OF TANGENT LINE FROM X AXIS. 
AS=DATAN(RS ) -DATAN2(S30, C30) 
IF(L.EQ.0)RETURN 
GAUL ‘SFCLEN(D, LENG CLOIL 3), CL( Il, 2) (CL(IL,1)) 
LEN=LL(IL)-LENG 


RETURN 

Cc 

800 Y==DSORT (0. 25D0-(X-0.5D0)**2) 
LEN=0.DO 
RETURN 

Cc 


600 WRITE(6, 10) 
WRITE(7, 10) 


RETURN 
END 
C 
(a Se ee ed 
Cc 
SUBROUTINE SFCLEN(D,L,A,B,C) 
Cc 
C WRITTEN BY: M. OLESKIW ON:800525 LAST MODIFIED:800902 
(e 
C CALCULATES THE LENGTH ALONG A SEGMENT OF THE CUBIC SPLINE FIT OF THE 
C AEROFOIL SFC. 
G 
C REF:DOUG S$. PHILLIPS (1980) 
Cc 


DOUBLE PRECISION II,NU,E,F,DSQRT,DELTA,G,A,B,C,D,L, 
T1,72,73,74,NU1,ANU1,DABS,NUO,ANUO,K,E2,F2,E3,F3,E02,F02, 
"E03, FO3,X0.X1,CK,FO,EO,F1,£1,YP,DISTP,DIST,DFLOAT,Y, 


.DLOG,DSIGN 
Cc 
INTEGER IER.1.ANAL 
Cc 
COMMON /LA/ANAL 
(© 
C IN D=ROTATED X COORDINATE OF POINT FROM BEGINNING OF SEGMENT 
Cc OF INTEREST TO WHICH THE LENGTH IS TO BE FOUND. 
C OUT L=SEGMENT LENGTH 
CIN A= 


CUIN, B= 


a4 @e4@ « @ 
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SFCLEN 


C= SPLINE PARAMETERS FOR SECTION OF INTEREST 


TI(NU,E,F)=NU/3.DO*DSORT( 1 .D0+(DELTA+NU*NU) **2) * 


-(1.D0#+2.DO*DELTA*G*G/(1.DO+NU*NU*G*G) ) 
-+((1.DO+DELTA*G*G) *F-2.DO*DELTA*G*G*E)/3.D0/G**3 


IF(ANAL.EQ.0)GOTO 200 
IF(A.NE.0.DO)GOTO 100 
IF(B.NE.O.DO)GOTO 110 


C A AND B EQUAL TO O 


C 


L=D*DSORT( 1.DO+C*C) 
RETURN 


C A EQUAL 0, B NOT EQUAL O 


110 


Cc 


T1=(2.DO*B*D+C ) *DSQRT(1.D0+(2.D0*B*D+C)**2) 
T2=C*DSORT(1.DO+C*C) 

T3=DLOG((2.DO*B*D+C )+DSQRT(1.D0+(2.DO0*B*D+C)**2)) 
T4=DLOG(C+DSORT(1.D0+C*C)) 
CeCUI1=T297 2-74) 74.0078 

RETURN 


C A NOT EQUAL O 


100 


C 


NU 1=DSORT(3.DO*DABS(A))*(D+B/3.D0/A) 
ANU 1=DABS(NU1 ) 
NUO=B/3.D0/A*DSORT(3.DO*DABS(A)) 
ANUO=DABS(NUO) 
DELTA=(C-B*B/3.D0/A)*DSIGN(1.D0,A) 
G=1.D0/(1.D0+DELTA*DELTA)**O.25D0 
K=DSORT(5.D-1-DELTA*G*G/2.D0O) 
E2=0.D0 

F2=0.DO 

£O2=0.DO0 

FO2=0.DO 

XO=2 .DO*G*ANUO/ ( 1.DO-ANUO*ANUO*G*G) 
X1=2.DO*G*ANU1/(1.DO-ANU1*ANU1*G*G) 
CK=DSORT(1.DO-K*K) 
IF(ANU1.EQ.1.D0/G)GOTO 120 
IF(ANU1.GT.1.D0/G)GOTO 130 


C ZETA LESS THAN PI/2 


CALL DELTHCF 1. X45 CK) 
CALL’ DELT2(E1, x1, CK, 1.00; CK*CK) 
GOTO 140 


C ZETA GREATER THAN PI/2 


130 


CALL DELI1(F2,-X1,CK) 
CALE DELTOCE2.-xX1. CK, 1.DO)", CK*CK) 


C ZETA EQUALS PI/2 


120 


140 


CALUTDCEL1(F3.K, TER) 

CALL DCEL2(E3,K,1.D0,CK*CK,IER) 
Fa=26D0O*FS=F2 

EV=2eDO7ES-E2 
IF(ANUO.EQ.1.D0/G)GOTO 150 
IF(ANUO.GT.1.D0/G)GOTO 160 


C ZETA LESS THAN PI/2 


CALL DELI 1(FO,X0,CK) 
CALL DELI2(EO,X0,CK, 1.D0,CK*CK) 


GOTO 170 


C ZETA GREATER THAN PI/2 


160 


CALL DELI1(FO2,-xX0,CK) 
CALL DELI2(E02.-X0,CK, 1.DO,CK*CK) 


C ZETA EQUALS PI/2 


150 


CALL’ DCEET(FOS.K, TER) 

CALL DCEL2(E03,K,1.DO,CK*CK, IER) 
FO=2.DO*FO3-FO2 

EO=2.D0*EO3-E02 
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L=(DSIGN(1.DO,NU1)*II(ANU1,E1,F1)-DSIGN(1.D0,NUO)*II(ANUO, EO. FO 
./DSQRT(3.DO*DABS(A)) ( »EO,FO).) 
RETURN 


C NON-ANALYTICAL (APPROXIMATE) SFC. LENGTH DETERMINATION. 
200 


210 


AQ a 


QO OrOore @ 


QUIS IASI PIPINS) (IKI @) (@) 


io) (o) 


(o) 


L=0.D0 

YP=0.DO 

DISTP=0.DO 
DO* 2710 1249995 
DIST=D*DFLOAT(1I)/25.D0 
Y=((A*DIST+B)*DIST+C)*DIST 
L=L+DSORT((DIST-DISTP)**2+(Y-YP)**2) 
YP=Y 
DISTP=DIST 
CONTINUE 

RETURN 

END 


SUBROUTINE STAB(RED,CD,UD,VD,UA,VA,CDS,EIGMX) 


WRITTEN BY: M. OLESKIW ON: 810608 LAST MODIFIED:810610 


FINDS THE JACOBIAN (DF/DY), ITS EIGENVALUES AND DETERMINES 
SUITABILITY OF ODE INTEGRATING TECHNIQUE. 


DOUBLE PRECISION XP(13),YP(13),PS1(13),Z1,22,Z23,Z24,K2,K3,K4, 
.RED,CD,DCD,UD,VD,UA,VA,DSQRT,G1,G2,G3,DG3X ,DG3Y ,DG3U,DG3V, 
.U(4,4),E1G(8),2Z(32),WK(25) ,DD(5),C,RDS,EIGMX,DMIN1 
INGEGERMCDSEN,DARIZ LER Ud) mye 


COMMON /AIR/XP,YP,PSI/STAB1/K2.K3,K4/TRANS3/DD,C, TYPE, JJ 


IN RED=RELATIVE MOTION REYNOLDS NO. 
IN CD=DRAG COEFFICIENT. 
IN UD= 
IN VD=DROPLET VELOCITY COMPONENTS. 
IN UA= 
IN VA=AIR VELOCITY COMPONENTS. 
IN CDS=PARAMETER TO DETERMINE DRAG COEFFICIENT FORMULATION. 
OUT EIGMX=LARGEST NEGATIVE REAL PART OF EIGENVALUES OF JACOBIAN MATRIX 
RDS=DD( JU) /2.D6/C 
DUAS/DXDS 
21=(PSI(6)-PSI(7)-PSI(8)+PSI(9))/4.D00/RDS/RDS 
DUAS/DYDS 
22=(PSI(10)-2.DO*PSI(5)+PS1(13))/4.DO/RDS/RDS 
DVAS/DXDS 
73=(2.DO*PSI(5)-PSI(11)-PS1(12))/4.DO/RDS/RDS 
DVAS/DYDS 
Z4=(PSI(8)-PSI(6)-PSI(9)+PSI(7))/4.DO/RDS/RDS 
G1=UD-UA 
G2=VD-VA 
RELVEL 
G3=RED/K2 


DG3X=-(G1*21+G2*Z3)/G3 
DG3Y=-(G1*Z2+G2*Z4)/G3 
DG3U=G1/G3 
DG3V=G2/G3 


FIND DCD/DRED 


IF(CDS.EQ.2)GOTO 300 
IF(CDS.EQ.1.AND.RED.LE.5.D0)GOTO 100 
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STRMFN 


DCD=-0.5848D0*(1.D0+8.06D0/DSORT(RED))*4.5 it 

Bor ohaes ))*4.53D0/RED**1.5D0 
DCD=-24 .DO/RED/RED 

GOTO 400 

DCD=-24 .DO/RED/RED-1.75D0/RED**1.37D0+2.37D-3/RED**0.62D0 


C FILL JACOBIAN MATRIX. 
400 


J(1,1)=0.DO 

J(2, 1)=-K3*(DCD*K2*DG3X*G3*G1+DG3X*CD*G1-Z1*CD*G3) 
J(3,1)=0.D0 

JU(4, 1)=-K3* (DCD*K2*DG3X*G3*G2+DG3X *CD*G2-23*CD*G3) 
UG 2 =4— DO 
J(2,2)=-K3*(DCD*K2*DG3U*G3*G1+DG3U*CD*G1+CD*G3) 
J(3,2)=0.D0 
J(4,2)=-K3*(DCD*K2*DG3U*G3*G2+DG3U*CD*G2 ) 
J(1,3)=0.D0 
J(2,3)=-K3*(DCD*K2*DG3Y *G3*G1+DG3Y *CD*G1-Z2*CD*G3) 
J(3,3)=0.DO 
J(4,3)=-K3*(DCD*K2*DG3Y *G3*G2+DG3Y *CD*G2-74*CD*G3) 
JG 4)=On DO 
J(2,4)=-K3*(DCD*K2*DG3V*G3*G1+DG3V*CD*G1) 
UG3e 4 )i=4a DO 

J(4,4)=-K3* (DCD *K2*DG3V*G3*G2+DG3V*CD*G2+CD*G3 ) 


C FIND EIGENVALUES OF THE UJACOBIAN. 


(yt @) 


ADO QO @QiOreg 


GaiG 


N=4 
IA=4 

1z=4 

CALL EIGRF(JU,N,IA,O,EIG, 2Z,1Z,WkK, IER) 
EIGMX=DMIN1(EIG(1),EIG(3),EIG(5),EIG(7)) 
RETURN 

END 


SUBROUTINE STRMFN(TYPE ) 


WRITTEN BY: M. OLESKIW ON: 800222 LAST MODIFIED: 810923 


CALCULATE STREAMFUNCTION ON A GRID ABOUT AN AEROFOIL SECTION 


IN 


GIVEN THE SFC. VORTICITY DENSITY ON THE AEROFOIL AND PLOT THE 
FLOW USING VELOCITY VECTORS. 
Rieke 


KENNEDY, JU.L. & D.F. MARSDEN (1976), CAN. AERO. & SPACE JOUR. 
Vi 22.0754" PPS 2439—256 


DOUBLE PRECISION ALPHAR,XE(101),YE(101),xC(101),YC( 101) ,GAMMA( 101) 


220064100) -ST.CIOO)F COC 100) DELLE, YUP 1: YER 1; YUL YE, ZZ. PUK, DD, 
.PID,YUM1,YLM1,TH 


REAL PSI (3721) .K( 101), DELTA, PI, ALPHAS, SNGE SCO, SSI .X,Y,OXC,DYC, 


.XMIN, XMAX, YMIN, YMAX,B,A,R1S,R2S,T3,ATAN,SIGN,T1,T2,DEN, AA,MM, 


R,ABS,LOG,FLOAT,SIN,COS,R3S,DX,DY,DPX,DPY,XPAGE,YPAGE,AINT, 


-XTIP, YTIP,XP1,YP1,YM1,U,V, AHL, AHLEN, SORT, XM1,SIGMA,DXX, 
.DYY ,DDXX ,DDYY 


INTEGER XZ,YZ,TYPE,J,1,M,XZ1,YZ1,F,N,NCOU,NCOL,L,IIU,IIL,MOD, 


. INC ,NDCPX ,NDCPY 


COMMON ALPHAR,PID/AERO1/XE, YE/AERO3/NCOU , NCOL/AERO2/XC, YC,GAMMA,D, 


.SI,CO/NACA/TH 
_/GRID/XMIN, XMAX , YMIN, YMAX,XZ,YZ/SRCH/DD,IIU,TIL 


TYPE=AEROFOIL TYPE. 


N=NCOU+NCOL -2 
PI=SNGL(PID) 
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C ALPHAR=ANGLE OF ATTACK IN RADIANS 


yes 


ALPHAS=SNGL (ALPHAR ) 


DO 120 J=1,XZ 
X=XMIN+FLOAT(JU-1)/FLOAT(XZ- 1) *(XMAX-XMIN) 

IF(MOD(JU,2).EQ.0)GOTO 121 

T=2 

INC=2 

GOTO 123 

I=1{ 

INC=1 


C PSI IS STORED IN VECTOR FORM BY COLUMNS. 


123 


M=(JU-1)*YZ+I 
Y=YMAX-FLOAT(I-1)/FLOAT(YZ-1)*( YMAX-YMIN) 
PSI(M)=0.0 
IF(TYPE.EQ.-1)GOTO 135 
IF(TYPE.EQ.-2.0R.TYPE.EQ.-3)GOTO 300 
IF(TYPE.EQ.-10)GOTO 400 

DO 140 L=1,N 


C FIND DISTANCE BETWEEN CONTROL PT. L AND GRID PT. I,J. 


DXC=X-SNGL(XC(L)) 
DYC=Y-SNGL(YC(L)) 


C CALCULATE COMPONENTS OF EQN. 9 AND FIG. 2 


160 


180 
170 


140 


DELTA=SNGL(D(L))/2.0 
SCO=SNGL(CO(L)) 
SSI=SNGL(SI(L)) 
B=DXC*SCO+DYC*SSI 
A=DYC*SCO-DXC*SSI 
R1S=A*A+(B+DELTA)*(B+DELTA) 
R2S=A*A+(B-DELTA)*(B-DELTA) 
R3S=A*A+B*B-DELTA*DELTA 
IF(R3S.LT.1.E-30)GO TO 160 
T3=ATAN(2.0*A*DELTA/RQS ) 
GO TO 170 
IF(ABS(A).LT.1.E-30)GO TO 180 
T3=ATAN((B+DELTA)/A)-ATAN( (B-DELTA)/A) 
GO TO 170 
T3=SIGN(PI,A) 
T1=(B+DELTA)*LOG(R1S) 
T2=(B-DELTA)*LOG(R2S) 
K(L)=(T1-T2+2.0*A*T3-4.O0*DELTA)/4.0/PI 
PSI(M)=PSI(M)-SNGL(GAMMA(L))*K(L) 
CONT INUE 

R=Y*COS(ALPHAS )-X*SIN(ALPHAS ) 


G ASSURE SIHATN PSD ION FAEROFOIL: = 0: 


le 


PSI(M)=PSI(M)+R-SNGL (GAMMA(N+ 1) ) 
GOTO 130 


C STREAMFN. FOR A CYLINDER. 


135 


Cc 


DENS (X-0.5)**2+Y7 7 
IF(DEN.LT.1.E-70)GOTO 136 
PSI(M)=Y-Y/4.DO/DEN 

GOTO 130 


C STREAMFN FOR A JOUKOWSKI AEROFOIL 


300 


Cc 


PSI(M)=SNGL(PUK(DBLE(X),DBLE(Y))) 
GOTO 130 


C STREAMFN. FOR A FLYING CIGAR. 


400 


410 


AA=SNGL(TH)/400.0 
MM=AA*AA 

IF(Y.LT.O.0)GOTO 410 

PSI (M)=MM* (AA-X)/SORT( (AA-X)**2+Y*Y )+¥*¥/2.0 

GOTO 130 

PSI(M)=2.0*MM-MM* (AA-X)/SQRT((AA-X)**2+Y*Y )-Y*Y¥/2.0 


GOTO 130 
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120 


c 


PSI(M)=0.0 

I=I+INC 

FEC! YEE-YZ) GOTO “129 

CONT INUE 

XZ 1=XZ=4 
YZ1=YZ-1 
DPX=20./FLOAT(XZ1) 
DX=(XMAX-XMIN)/FLOAT(XZ1) 
DPY=12./FLOAT(YZ1) 
DY=(YMAX-YMIN)/FLOAT(YZ1) 


ENTRY STMFCN 


C PLOT BOUNDARIES 


500 


510 


NDCPX=0O 

NDCPY =O 

DXX=(XMAX-XMIN)/20.0 

DYY=(YMAX-YMIN)/12.0 

DDXX=ABS(4.0*DXX)+1.E-6 

DDYY=ABS(2.0*DYY)+1.E-6 

IF (DDXX-AINT(DDXX).LT.2./10.**(6-NDCPX))GOTO 510 
NDCPX=NDCPX+ 1 

DDXX=DDXX*10.0 

GOTO 500 
IF(DDYY-AINT(DDYY).LT.2./10.**(6-NDCPY))GOTO 520 
NDCPY=NDCPY+1 

DDYY=DDYY*10.0 

GOTO 510 


C DRAW AXES FOR ICE ACCRETION PLOT. 


520 


CALL NEWPEN(1) 

CALL ORIGIN(9998,20.0,12.0,5.0,5.0) 

CALL AX2EP(4.0,3,NDCPX,1,0.9) 

GCALURAXTS2 (On tOM Oxy Cl 3620 50 | aXM ENED Xe 4©)) 
CALE FAXTS2 COO FOS PLP * [F019 105 SOROS TOF) 240) 
CALL AX2EP(2.0,3,NDCPY,1,1.2) 

CALL TAKIS2 CO 408 1 1 V7C? Sh 12- OOO FV MINE OVY Ge2' 0) 
GAUL RXIS2€O7S1290;% ©, 455204 0. (0-,0.,74..0) 


C CHANGE TO SECOND PEN 


CALL NEWPEN(2) 
PIU=4 
IIt=1 
SIGMA=1.0 
YUP 1=-1.D-10 
YLP1=1.D-10 
DOV200° W=2, XZ1,2 
F=0 
X=XMIN+FLOAT(JU-1)*DX 


C ARROWHEAD TAIL IN FRAME COORDS. 


XPAGE=FLOAT (U-1)*DPX 
XP 1=X+DX 
XM1=X-DX 


C CHECK IF CENTERED DIFFERENCING IS OK 


280 


IF(XP1.LE.SNGL(XE(1)).OR.XM1.GE.SNGL(XE(NCOU)))GOTO 220 


YUM1=YUP 1 

YLM1=YLP 1 
IF(X.GT.SNGL(XE(1)).AND.X.LT.SNGL(XE(NCOU)))GOTO 320 
YU=-1.D0-10 

YL=1.D-10 

GOTO 330 

F=1 

CALL SFC(DBLE(X),YU.1.0,2Z2Z) 

CALL SFC(DBLE(X),YL,0,0,22) 
IF(XP1.GT.SNGL(XE(NCOU)))GOTO 280 
CALL TSFECTDELE(KE 10% YURSE4T 0522) 
CALL SFC(DBLE(XP1),YLP1,0,0,22Z) 
GOTO 290 

YUP1=YL 
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TRAJEC 
YLP1=YU 
290 F=F+4 
C DO FOR EACH COLUMN OF ARROWHEAD TAILS 
220 DO 210 I=2,Yz1,2 


Y=YMAX-FLOAT(I-1)*DY 

C ARROWHEAD TAIL IN FRAME COORDS. 
YPAGE=12.-FLOAT(I-1)*DPY 
M=(JU-1)*YZ+I 
IF(F.NE.2)GOTO 230 
YP1=Y-DY 
YM1=Y+DY 

C IS CENTERED DIFFERENCING IN Y OK? 
IF(YP1.GE.SNGL(YU).OR.YMi.LE.SNGL(YL})GOTO 230 
IF(Y.GE.SNGL(YU))GOTO 250 

C CHECK FOR LOCATION WITHIN AEROFOIL 
IF(Y.GT.SNGL(YL))GOTO 210 

C FORWARD DIFFERENCING IN Y 
IF(TYPE.LE.-10)SIGMA=ABS((Y+YP1)/2.0) 
U=(PSI(M)-PSI(M+1))/DY/SIGMA 


GOTO 240 

C BACKWARD DIFFERENCING IN Y 

250 IF(TYPE.LE.-10)SIGMA=ABS((Y+YM1)/2.0) 
U=(PSI(M-1)-PSI(M))/DY/SIGMA 
GOTO 240 

C CENTERED DIFFERENCING IN Y 

230 IF(TYPE.LE.-10)SIGMA=ABS(Y) 
U=(PSI(M-14)-PSI(M+1))/2.0/DY/SIGMA 

Cc 

C IS CENTERED DIFFERENCING IN X OK? 

240 IF(TYPE.LE.-10)SIGMA=ABS(Y ) 


IF(F.EQ.0)GOTO 260 
IF(Y.GE.SNGL(YUP1).AND.Y.GE.SNGL(YUM1))GOTO 260 
IF(Y.LE.SNGL(YLP1).AND.Y.LE.SNGL(YLM1))GOTO 260 
C IS FORWARD DIFFERENCING OK? 
IF(Y.GE.SNGL(YUP1).OR.Y.LE.SNGL(YLP1))GOTO 310 
C BACKWARD DIFFERENCING IN X 
V=(PSI((JU-2)*YZ+1)-PSI((JU-1)*YZ+I) )/DX/SIGMA 


GOTO 270 
C FORWARD DIFFERENCING IN X 
310 V=(PSI((JU-1)*YZ+I)-PSI(JU*YZ+I))/DX/SIGMA 
GOTO 270 
C CENTERED DIFFERENCING IN X 
260 V=(PSI((U-2)*YZ+I )-PSI(U*YZ+I))/2.0/DX/SIGMA 
C ARROWHEAD TIP 
270 XTIP=XPAGE+U*DPX 


YTIP=YPAGE+V*DPX 
AHL=SQRT (U*U+V*V) 
C ARROWHEAD LENGTH 
AHLEN=O. 25*AHL*DPX 
CALL AROHD(XPAGE, YPAGE,XTIP,YTIP,AHLEN,O, 16) 


210 CONTINUE 
200 CONTINUE 
RETURN 
END 
C 
©) See Se SSeS Ss SSSeSSStSSeSSe Sess sess eS SSS SSssSSS SSF SSS SS SS SSS eS Se 252== 
Cc 


SUBROUTINE TRAVEC(TRUPLA, THICK, AT,BOTH, DDISTN, LAYER, GRAZE ) 
WRITTEN BY: M. OLESKIW ON:790526 LAST MODIFIED:811018 


CALCULATE TRAJECTORIES OF DROPLETS IN POTENTIAL FLOW 
ABOUT AN AEROFOIL. 
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TRAJEC 


-MU,DTS(6,2),XP(13),YP( 13), WOSREL,DBLE,HF,UST,VST,EPS(5),PI, 
-€C1,CC2,C3,C4,C5,C6,C7,C8,C9,C10,C11,C12,C13,C14,C15,C16, 
-€17,018,C19,C20,C21,C22,C23,C24,HFP,AS,DATAN2,CLAPN,CX,CY. 
-CLAP, ACOLLD,TIM1,TIM2,TST,XCD,XIM1,XIM2,XPL1,XXI,YCA, YOG,KLAP, 
-XCOLL, YCOLL,DABS,DSIGN, ACOLL,ACOL(31,5),YIM1,YIM2,TCOLL, 
-CLAPP,K,LTH,XN,YN, ALPHAR,D,LW(2), YOW(2),VTW(2), ACW(2) 


DOUBLE PRECISION PS1(13),DUADX ,OVADY ,DMIN1,L(31),Y0(31),XUXR, 


-UAS(6,2),VAS(6,2),RED(6,2),AU,BU,CU,AV,BV,CV,UCOLL, VCOLL, XLXR, 
-LEN, PRDSTI,PRDSTO,DIST,TS(500,2),UVAT,XXO, YYO,XX, YY, TTO,TT1, 
-DSORT,PINF,TINF,XO(5),YOT(10,2), YOI(2,5) ,DFDY, GEXX , GEX, GEY 


DOUBLE PRECISION XDS(6,2),UDS(6,2),AN(2,6,2),YDS(6,2), TTLACN, VPSQ, 


-VDS(6,2),HT(2,6,2),AO,A1,A2,B0,B1,B2,B3,E5B,CO,C1,C2,ATu, 
-DM1,D0,D1,02565,UPI,UCI,VPI,VCI,XP1,XCI,YPI,YCI,ER1,ER2, 

-PRD, THICK, SLP,XCLAP,LAMBH, MLAMBH, GEU, GEV,DMAX1,NA,ZZ,TD,PSIP,PSIN, 
-VTOT(31,5),VTTL,K2,K3,K4,AX,AY,BX,BY,CIM2,CIM1,XL,XR,HCLAP ,HCLAPN 


REAL XMIN,XMAX,YMIN, YMAX,SNGL,X,Y,XDSP(250), YDSP(250), YPREV, 


.XPREV 


INTEGER I(2),CDS,XZ,YZ,IU, IK, TRJEND, SMASH, AT,BOTH, ACN, 


-GRAZE,IG,JUJ,IU,IL,N,DENSE,FNCALL, SHORT ,WARN,WARNP,IABS, 

. TRUPRA, TRJUPLA,PRINTI,PRINTO, TYPE,GLOBAL,CPRED,S,LL,FR,GER, 
-IM4(2),1IM3(2),1IM2(2),1M1(2),10(2),1P1(2),MM,ITEMP,EQN,PPC,PC, 
. LAYER, IMN1,DDISTN,EQ,GRAV,ITP,SHORTP 


COMMON ALPHAR,PI/EQNMN/GS,RHOA,RHOD,RDS,NUS,HF 


./AIR/XP,YP,PSI/REL/UAS, VAS,RED,CD/STAB1/K2,K3,K4 
./GRID/XMIN, XMAX, YMIN, YMAX,XZ,YZ/XXR/XUXR, XLXR 
./PV/XDS,YDS,UDS, VDS/INTEG/AN,HT/SA/AS 

b/ PCM/AORA TEAOTEO LEY (B2 5B3CO,C1,C2,DM1,00,D4, 02, 
HWP EUCT IVE TVG TERI ERO] XP Ie XC hy Ved yViGarUSit. Visit 
./LOC/TS,OTS,1,IM4,IM3,IM2,IM1,I10,IP1,MM 


COMMON E/RKEM/COTRCC24C3,C4,>C5,C6..C7 C8, C9. C10,611,.012 013,614: 


LGtiSy GiG eC Gt8. © 19) C20,C2n 7 C226C235,C24 
./COLS/L,LW, YO, YOW, VTW, ACW/NOSE/XN, YN/FC/FNCALL 
./TRANS1/UINF ,PINF,TINF,EPS,DENSE/SRCH/D,IU,IL 
./TRANS2/CDS, TRJPRA,PRINTI,PRINTO, EON, 

.PPC, ACN, GRAV/TRANS3/DD,C, TYPE, J/CV/VTOT , ACOL 

. AMP AXE BX IOXG AY JBVIICY SO XXOlIV0.1T TOMET 4 


TRUPLA=PLOT TRAJECTORIES (0 OR 1) 

THICK=AEROFOIL THICKNESS IN % 

AT=AUTO-TRAJECTORY MODE (0 OR 1) 

BOTH=TRAVECTORIES TO COLLIDE ON BOTH SFCS. (0 OR 1) 
DDISTN=NO. OF SIZES IN DROPLET DISTN. 

LAYER=LAYER NO. 

GRAZE=FIND GRAZING TRAJECTORY MODE (O OR 1) 


FORMAT(’41ACCRETION OF LAYER’,I3,’ DROPLET DIAMETER: ’,F7.1) 
FORMAT(’1ACCRETION OF LAYER’,1I3,’ DROPLET DIAMETER: ’,F7.1, 
ME -EPS= EP RE10 13) 

FORMAT(’-ACCRETION OF LAYER’,I3,’ DROPLET DIAMETER:’,F7.1) 
FORMAT(’-ACCRETION OF LAYER’,13,’ DROPLET DIAMETER:’,F7.1, 


L4AP(ERS= ~T1RE 10/2) 


FORMAT(’1’) ‘ 
FORMAT(’ C *WARNING*** STABILITY PARAMETER INDICATES POSSIBLE 


ROWNSTABILITY’ } 


“FORMAT (/5F 10.0) 


FORMA TICHOSTER’. TS. TIME” , 115. DTS’ 5123, “X0S4,. 7132, YDS, 741, "PSI", 


TSO. UAS 7) T59 P7UDS” ,T68.,.°VAS’ , 177, ‘VDS’, 188, “RED” ,T94, 
. ’ACCN/MOD HIST/RHS’ ,7114, ‘USTAB’ ,T123, ’VSTAB‘ ) 


FORMAT(’ ’,14,F6.2,F7.4,7F9.5,F11.3,4F9.5) 
FORMAT ( ‘ *7) I39(F6.2,F7.4,7F9.5,F11.3,4F9.5) 
FORMAT(’ STABILITY INDEX:’,F8.3,’ AT X=’,F8.5, 
’ CLOSEST APPROACH IS Y=’.F8.5, 


'/,* TIME STEPS=/,13,’ FN. EVALUATIONS=’,14,’ FINAL Y=’,F8.5) 
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TRAJEC 
FORMAT @°OSTABILITY INDEX:’,f8.3,’ AT X=“, F8.5, 
.’ CLOSEST APPROACH IS Y=’,F8.5, 
-/,'OTIME STEPS=’,13,’ FN. EVALUATIONS=’,14,’ FINAL Y=’,F8.5) 
FORMAT(’OTRAJECTORY STARTING POSITION IS Xe’, 
PS ot, AVNOs FS. 5) 
FORMAT(’ COLLISION COORDS: X=’,F8.5,’ eSES. Oh. 84 F557. 
.’ TIME STEPS=’,13,’ FN. EVALUATIONS=’,14, 
- Je 2 STABLETLVYSINDEX=’,FE.39,° COLLISION VELOCITV:*.F8.5.’ AT’. 


NEG tt sabe Gy 75) 


RORMAE( SOCOLETSTON ‘COORDS: X=’.F8.5,% Y=",68.5,% l=".F8.5./, 


.‘OTIME STEPS=’,13,’ FN. EVALUATIONS=’,14, 

./,'OSTABILITY INDEX=’,F8.3,’ COLLISION VELOCITY:’,F8.5, ’ 
Fest)’ (DEG TES 

FORMAT(‘OFIRST TRAJECTORY HIT AEROFOIL’ ) 

FORMAT( ‘OUNEXPECTED AEROFOIL MISS’) 
FORMAT(’ODD,EPS,X0O,YO,GLOBAL?’ ) 
FORMAT(F10.0,D10.0,2F10.0,12) 


FORMAT(’ GLOBAL ERRORS AT X=’,F8.5,’ ARE: IN X:’,F8.5,° 
gots Oem Ne mech orm mnN Ss Viceor Fay) 

FORMAT(’OGLOBAL ERRORS AT X=’,F8.5,’ ARE: IN X:’,F8.5,‘ 
REG Op ame les Urmcr ero mame LN Vas “a7 Fis). 5) 

IU=1 

IL=1 


TCA 2607.0) GOTO! 710 
INPUT PARAMETERS FOR AUTO TRAJECTORY MODE. 
READ(4,30)(XO(JU),JU=1,DDISTN) 
READ(4,30)(YOI(2,JU),U=1,0DISTN) 
IF (BOTH.EQ.1)READ(4,30)(YOI(1,U),J=1,DDISTN) 
FIND GRAZING TRAJECTORIES FIRST. 
GRAZE=1 
IF(PPC.LE.2)GLOBAL=0 
SER FORSTER ExTRAPOEATALONE 
IF(PPC.EQ.3.AND.EQN.NE.2)GLOBAL=2 
FIRST CATEGORY IN DROPLET DISTN. 
J=1 


NON-DIMENSIONAL VIEWPORT DIAGONAL LENGTH 

2) LEN=DSQRT(DBLE( (XMAX-XMIN) **2+( YMAX-YMIN) **2) ) 

PRINT LENGTH INTERVAL WITHIN VIEWPORT 
PRDSTI=LEN/DFLOAT(PRINTI ) 

PRINT LENGTH INTERVAL TO LEFT OF VIEWPORT 
PRDSTO=LEN/DFLOAT (PRINTO) 

NON-DIMENSIONAL ACCN. OF GRAVITY 
GS=DFLOAT(GRAV)*9.81DO*C/UINF/UINF 

AIR DENSITY 
RHOA=PINF*1.D3/287 .O04D0/(TINF+273. 16D0) 

WATER DENSTTY' "REPS CIS —"SMtT 
RHOD=999. 15D0 

DYNAMIC VISCOSITY OF AIR REF: LOZOWSKI ET AL. (1979) 
MUST 74180 —5+5, 1058 * TINE 

NON-DIMENSIONAL KINEMATIC VISCOSITY OF AIR: 
NUS =MU/RHOA/C/UINF 
IF(PPC.LT.2)GOTO 420 


DETERMINE PARAMETERS FOR RUNGE-KUTTA-FEHLBERG METHOD. 
CC1=.25D0 
CC2=3.D0/32.D0 
C3=9.D0/32.D0 
C4=1932.D0/2197.DO 
C5=72.D02/2197.D0 
C6=7296.D0/2197.DO 
C7=439.D0/216.D0 
c8=8.D0O 
C9=3680.D0/513.D0 
C10=845.D0/4104 .DO 


PES 3 
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TRAJEC 


C11=8.D0/27.DO 
C12=2.D0 
C13=3544 .D0/2565.DO 
C14=1859.D0/4104.DO 
C15=11.D0/40.D0 
C16=25.D0/216.D0 
C17=1408 .D0/2565.D0 
C18=2197 .DO0/4104.DO 
C195. 206 
C20=16.D0/135.D0 
C21=6656 .DO0/12825.D0 
C22=28561.D0/56430.D0 
C23=9.D0/50.D0 
C24=2.D0/55.D0 
GOTO 400 
420 IF(PPC.NE.1)GOTO 400 
c 
C DETERMINE PARAMETERS FOR PREDICTOR-CORRECTOR METHOD. 
A1=0.DO 
A2=6.25D-2 
AO=1.DO0-A1-A2 
BO=(55.D0+9.DO+#A1+8 .DO*A2)/24.D0 
B1=(-59.D0+18.D0*A14+32.D0*A2)/24.D0 
B2=(37.D0-5.DO0*A1+8.DO*A2)/24.D0 
B3=(-9.D0+A1)/24.D0 
E5B=(251.D0-18.D0*A1-8.DO*A2)/6.DO 
CisAt 
C2=A2 
CO=1.D0-C1-C2 
DM1=(9.D0-C1)/24.D0 
DO=(19.D0+13.D0*C1+8.DO*C2)/24.DO 
Di=(-5.D0+13.D0*C1+32.D0*C2)/24.D0O 
D2=(1.D0-C1+8.DO*C2)/24.D0 
E5=(-19.D0+11.D0*C1-8.DO0*C2)/6.D0 
ER1=E5B/(E5B-E5) 
ER2=E5/(E5B-E5) 
Cc 
400 IF(AT.EQ.1)GOTO 470 
J=1 
C READ IN VALUES FOR INDIVIDUAL TRAJECTORY MODE. 
490 WRITE(6,96) 
READ(5,97)DD(U),EPS(JU),xX0S(1,1),YDS(1,1),GLOBAL 
IF(DD(JU).EQ.0.DO)RETURN 
IF(PPC.LE.1.0R.EON.EQ.2)GLOBAL=0O 
GOTO 480 
(e 
C BEGINNING OF AUTO-TRAJECTORY MODE. 
ENTRY TRAJEK(LAYER,GRAZE,N) 


C 

C IN N=INDEX OF TRAJECTORY PAIR. 
Cc 

470 TJ=3 


IF(GRAZE.EQ.1)GOTO 460 
C TRAJECTORY SPECIFIED BY CE SUBROUTINE. 
YDS(1,1)=YOW(N) 


GOTO 405 
C TRAJECTORY DETERMINED TO FIND GRAZING TRAJECTORY. 
460 IJ=IUJ-1 
IF(IJU.EQ.2.AND.TRUPRA.EQ.O)WRITE(7, 15) 
IG=1 


C SLOPES FOR SECANT METHOD. 
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K=0.85D0 


Ye i ok ke ko oak ak ok ok de ok ak aC oo a ok oe oe ok oie oie 2k ofc 9 ke ac ok ke a 2 ke coke 2 te ke ee oe oe kee ok fe ake oe Reo Oa oe ee ok Kk 


TD=0.2D0 
C INITIAL DROPLET POSITION. 
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TRAJEC 


YOSGt WsVOrcidig) 
XDS(1,1)=XO(UJ) 


C PARAMETERS FOR CALCULATING THE JACOBIAN (DF/DY). 


480 


C 


RDS=DD(JU)/C/2.D6 

K2=2.D0*RDS/NUS 
K3=0.75D0*RHOA/RDS/(2.DO*RHOD+RHOA ) 
K4=2 .DO* (RHOD-RHOA )/(2.D0*RHOD+RHOA ) 


C SET COUNTERS 


485 


DO 485 MM=1,2 
IM4 (MM) =2 
IM3(MM)=3 
IM2(MM)=4 
IM1(MM)=5 
IO(MM)=6 
IP1(MM)=1 
I (MM) =O 
CONTINUE 
IK=O 
CPRED=0 
GER=0 
WARN=O 
MLAMBH=0.DO 
FNCALL=0O 
MM= 14 
XCLAP=XDS(1,1) 


C DROPLET AT INITIAL POSITION 


406 


Cc 


IF(TRUPRA.EQ.1)GOTO 406 
IF(PPC.LT.2)WRITE(7,12)LAYER,DD(U) 
IF(PPC.GE.2)WRITE(7,13)LAYER,DD(JU),EPS(uU) 
GOTO 407 

IF(PPC.LT.2)WRITE(7, 10)LAYER,DD(u) 
IF(PPC.GE.2)WRITE(7,11)LAYER,DD(J).EPS(J) 
WRITE(6,70) XDS(1,1),YDS(1,1) 

WELTEC A 70) XDOSGIe Te YDSCT}) 
IF(PPC.NE.1)GOTO 410 


C SET PREVIOUS PREDICTOR-CORRECTOR VALUES TO O. 


410 
Cc 


XPI=0.DO 
XCI=O.DO 
YPT=0" DO 
YC1I=0.D0 
UPI=0.DO 
UCI=0.DO 
VP1=0.DO 
vc1I=0.DO 
IF(ACN.EQ.1)GOTO 415 


C SET DROPLET TRAVELLING WITH JUST SLIGHTLY GREATER VELOCITY 


C 


THAN AIR (RED=0.001) 


CARL AIRVELCKXOSC(. 1). YOSC).. 1), UAS CT, 1) VASCI21), 5) 


C CALCULATE TOTAL AIR VELOCITY. 


UVAT=DSQRT(UAS(1, 1) *UAS(1, 1)+VAS(1,1)*VAS(1,1)) 


C CALCULATE TOTAL STARTING RELATIVE VELOCITY. 


WDSREL=1.D-3*NUS/2.DO/RDS 


C CALCULATE INITIAL DROPLET VELOCITY 


RAQAQADN 


15 


UDS(1,1)=UAS(1.1)*(1.DO+WDSREL/UVAT ) 
VDS(1, 1)=VAS(1,1)*(1.DO+WDSREL/UVAT ) 


GOTO 416 


ASSURE STARTING RED=0.001 WEIGHTED BY POTENTIAL FLOW 


ACCELERATIVE COMPONENTS. 
SET GRID FOR INITIAL DROPLET VELOCITY CALCULATIONS 


xP(6)=XDS(1,1)+RDS 
XP(7)=XP(6) 
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TRAJEC 
XP(8)=XDS(1,1)-RDS 
XP(9)=XP(8) 
YP(6)=YDS(1,1)+RDS 
YP(7)=YDS(1,1)-RDS 
YP(8)=YP(6) 
YP(S)=YP(7) 
C FIND AIR VELOCITY. 
CALL AIRVEL(XDS(1,1),YDS(1,1),UAS(1,1),VAS(1,1),9) 
C CALCULATE DUA/DX 
DUADX=(PSI(6)-PSI(7)-PSI(8)+PSI(9))/4.DO/RDS/RDS 
C CALCULATE DVA/DY 
DVADY=(PS1(8)-PSI(6)-PSI(9)+PSI(7))/4.DO/RDS/RDS 
C TOTAL POTENTIAL FLOW ACCELERATIVE TERM 
UVAT=DSQRT (DUADX *DUADX+DVADY *DVADY ) 
C CALCULATE TOTAL STARTING RELATIVE VELOCITY 
WDSREL=1.D-3*NUS/2.DO/RDS 
UDS( 1, 1)=UAS(41, 1)-DUADX/UVAT*WDSREL 
VDS(1,1)=VAS(1,1)-DVADY/UVAT*WDSREL 
C 
416 CALL DRAG(UDS(1,1),V0S(1,1),UAS(1,1),VAS(1,1),CDS,RED(1,1),CD) 
C CALCULATE STARTING ACCELERATIONS: 


EQ=EQN 
IF(EQN.EQ.2)EQ=1 
CALL MACCN(UDS (C1. 4 )-VDS'(1..1) .UASCT. 1). VASC1, 4), 
RED(1,1),CD,EQ,0.D0,0) 
IF (TRJUPRA.EQ.1)WRITE(7,40) 
IF(AT.EQ.O)WRITE(6, 40) 
TRUJUEND=0 
HLCT. 1. ty =OeDe 
HT( 23.1, 1) =0.D0 
TS(1,1)=0.D0 
CLAP=1.D0 
PSIN=PSI1(5) 
SHORT =O 
PC=PPC 
SMASH=0O 
IF(PC.LT.2)GOTO 103 
C FIND INITIAL STEP SIZE FOR RKF4 & GLERKS. 
DFDY=DMAX 1(DABS(UDS(1,1)),DABS(VDS(1,1)),DABS(AN(1,1,1)), 
DABS(AN(2.1,1))) 
IF(GLOBAL.LE.1)DTS(1,1)=0.5D0*(EPS(U)/DFDY )**O0.25D0 
IF(GLOBAL.EQ.0)GOTO 100 
IF (GLOBAL .EQ.2)DTS(1,1)=0.33D0*(EPS(U)/DFDY )**O.2D0 
C FOR GLOBAL EXTRAPOLATION, INITIALIZE. 
HT( 1, 1,2)=0.DO 
H7T(2,1,2)=0.D0 
FS 1, 2) =0,D0 
XOS Gi SyEXDS (4 21) 
YDS.44 2) =YDS( 15.4) 
UDS(1,2)=UDS(1,1) 
vDS(1,2)=VvDS(1,1) 
UAS(1,2)=UAS(1,1) 
VAS( 122) =VASGI 1) 
RED(1,2)=RED(1,1) 
DTS(1,2)=DTS(1,1) 
ANCT. 1,2) =ANC1, 1, 1) 
ANC 2-de 2DeAN( 2 tee) 


MM=2 
LL=2 
GOTO 100 
C INITIAL STEP SIZE FOR RK4 & PC4. 
103 DTS(1. 1) =EPS(J)**O. 2500 
Cc 
C REINITIALIZE DISTANCE BETWEEN PRINT POSITIONS. 
100 PRD=0.DO 


Cc 
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TRAJEC 

105 IF(GLOBAL.GT.O)GOTO 104 
C FOR RK4,PC4,AND RKF4 METHODS. 

FR=1 

MM= 1 

GOTO 106 
C 
104 IF(GLOBAL.EQ.2)GOTO 107 


C FOR ORDER EXTRAPOLATION: 
IF(MM.EQ.1)GOTO 108 
IF(SMASH.EQ.0)GOTO S08 

C FIND GLOBAL ERRORS, SINCE TRAJECTORY HAS ENDED UPON 

c SECOND STEP OF PAIR. 
GEXX=XDS(I0(1),1) 
GEX=XDS(1I0(1),1)-xXDS(I0(2),2) 
GEY=YDS(10(1),1)-vYDS(10(2),2) 
GEU=UDS(10(1),1)-UDS(I0(2),2) 
GEV=VDS(10(1),1)-VDS(10(2),2) 

C CONTINUE FIRST STEPS TO END OF TRAJECTORY. 


GER=1 
CEBEGIN FIRST STEP OFSPATR: 
908 MM= 1 
FR=1 
GOTO 106 
Cc 
108 IF(GER.EQ.1)GOTO i106 
MM=2 


C SECOND STEP IN PAIR OF SAME SIZE. 
DISCIP1( 2), 2) =DTS( 10 1); 14) 


FR=O 

GOTO 106 
C 
C FOR STEP EXTRAPOLATION: 
107 IF(GER.EQ.1)GOTO 106 


IF(LL.EQ@.2)GOTO 909 
IF(SMASH.EQ.0)GOTO 109 

C FIND GLOBAL ERRORS, SINCE TRAJECTORY HAS ENDED 

@ UPON FIRST STEP OF TRIPLET. 
GEXX=XDS(IP1(2),2) 
GEX=(XDS(I0(1),1)-XDS(IP1(2),2))/31.D0 
GEY=(YDS(1I0(1),1)-YDS(IP1(2),2))/31.D0 
GEU=(UDS(I0(1),1)-UDS(IP1(2),2))/31.D0O 
GEV=(VDS(1I0(1),1)-VDS(1P1(2),2))/31.D0 

C CONTINUE HALF-STEPS TO END OF TRAJECTORY. 


GER=1 
MM=2 
FR=1 
GOTO 106 
C BEGIN NEXT STEP OF TRIPLET. 
903 MM= 1 
LL=0 
FR=O 
GOTO 106 
Cc 
C BEGIN FIRST OR SECOND HALF-STEP. 
109 MM=2 
(ta I el be 29) 
FR=1 
DTS(IP1(2),2)=DTS(10(1),1)/2.D0 
€ 
C INCREMENT INDICES 
106 ITEMP=IM4(MM) 


IM4(MM)=IM3(MM) 
IM3(MM)=IM2(MM) 
IM2(MM)=IM1(MM) 
IM1(MM)=IO(MM) 
IO(MM)=IP1(MM) 
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IP 1(MM)=ITEMP 

I(MM)=I(MM)+4 

IF(FR.EQ. 1)HFP=HF 

IF(FR.EQ. 1)WARNP=WARN 

XPL1=XDS(IO(MM),MM)+1.2D0*DTS( IO(MM) ,MM)*UDS(1O(MM) ,MM) 
IF (XPL1.LT.XN-RDS+1.D-9.OR.XPL1.GT. 
DMIN1(XUXR,XLXR)-RDS/5.D0)GOTO 120 


C HERMITE EXTRAPOLATION TO CHECK FOR COLLISION. 


130 


Cc 


CALL HERMIT(TS(I(MM)-1,MM),TS(I(MM),MM), 
XDS(IM1(MM),MM),XDS(IO(MM),MM), 

UDS(IM1(MM) ,MM),UDS(IO(MM) .MM),AX,BX,CX) 

CALL HERMIT(TS(I(MM)-41,MM),TS(I(MM),MM), 
YDS(IM1(MM),MM),YDS(IO(MM).MM), 
VDS(IM1(MM),MM),VDS(IO(MM),MM),AY,BY,CY) 
TTO=TS(I(MM)-1,MM) 

TT1=TS(I(MM) ,MM) 

XXO=XDS(IM1(MM),MM) 

YYO=YDS(IM1(MM),MM) 

TSC I(MM)+1,MM)=TS(I(MM) ,MM)+DTS(IO(MM) ,MM) 
TST=TS(I(MM)+1,MM)-TS(I(MM)-1,MM) 

XDS(IP1(MM) ,MM)=((AX*TST+BX )*TST+CX )*TST+XDS(IM1 (MM) ,MM) 
YDS(IP1(MM) ,MM)=( (AY*TST+BY )*TST+CY )*TST+YDS(1IM1(MM) ,MM) 
CPRED=1 

X=SNGL(XDS(IP1(MM),MM) ) 

XPREV=SNGL(XDS(1IO(MM) ,MM) ) 

GOTO 190 


C INTEGRATE EQNS. OF MOTION VIA HIGHER ORDER TECHNIQUE 
Cc (RK4,PC4,RKF4 OR GLERKS) 


120 


HCLAPN=CLAPN 
IF(FR.EQ.1)PSIP=PSIN 

IF(FR.EQ.1)SHORTP=SHORT 

IF(PC.GE.2)CALL GLERKS(EOQN,CDS,EPS(J),LAMBH, WARN, SHORT, 
GLOBAL, GER) 

IF(I(MM).GE.4.AND.PC.EQ.1)CALL PC4(EQN,CDS,LAMBH, WARN) 
IF(I(MM).LT.4.AND.PC.EQ.1.0R.PC.EQ.0) 

CALL RK4(EQN,CDS,LAMBH, WARN) 


IF(FR.EQ.1)PSIN=PSI(5) 
CPRED=O 


C STABILITY PARAMETER 


IF (MM.EQ. 1)MLAMBH=DMIN1 (MLAMBH, LAMBH) 
TECFER.E@.0)GOTO 192 

IF (WARN.EQ.O0.OR.WARNP.EQ.1)GOTO 175 
WRITE(6, 20) 
IF(TRUPRA.EQ.1)WRITE(7, 20) 


C CALCULATE DISTANCE SINCE LAST PRINT OF DROPLET POSITION 


AS 


C CHECK 


190 


C CHECK 


US) 
C CHECK 


DIST=DSORT((XDS(IP1(MM),MM)-XDS(IO(MM),MM) )**2+ 
(YDS(IP1(MM) ,MM)-YDS(IO(MM) ,MM))**2) 
PRD=PRD+DIST 

X=SNGL(XDS(IP1(MM),MM) ) 
XPREV=SNGL(XDS(IO(MM),MM) ) 

IF DROPLET HAS ENTERED VIEW WINDOW. 
IF(X.GT.XMIN)GOTO 190 
IF(TRUPRA.EQ.O)GOTO 105 
IF(PRD.GE.PRDSTO.OR.SHORTP.EQ.1)GOTO 231 
GOTO 105 

Y=SNGL(YDS(IP1(MM),MM) ) 

YPREV=SNGL( YDS(IO(MM) ,MM) ) 

FOR OUT-OF-BOUNDS. 

IF(Y.GE.YMAX)GOTO 211 

IF(BOTH.EQ.O)GOTO 191 
IF(Y.LT.YMIN.AND.YPREV.GT.YMIN)GOTO 212 
IF(X.GE.XMAX)GOTO 213 

TE’ COLLISIONL.ES POSSIBLE. 


JA AAT 
: 7 - eenkanines a) oo _ 
- ee a 
. wehGae (oF. AV i 


Ramee eenv:s OF, RAPE FOP! 
Ss +f ie, (8101 SOGNaR, 
Sit HEPQReWe TZ Putte? 


7 
Pr. Roe i ay ir, ae ee 


} 


‘4 


MM, (Pe ORS Sch ee, Cee yenpe 
" ive 
x ; 


a 
0 ». 
on 


yO sets) eae 0! wg TAOAANENS av swell a 
oe ta Bo a ae — 
A «hw 6d SL Ee eed aval td Lic aT 
; a we frees ES) (ome, (ere a 
Daas omer ar) iv tiene aad a 

leahien yoo ee OEE LOY 7 


oars ley Lae. Powe Bay, 

( ih, (MAPLES TAOTT - 
| Lada, Fee he tepat i 
‘oN, COMO re E SN aga. 
CO, ae ep PO eQyy 


, i Of iptet wie, Poteet Py 

oe ris eet 

(me i ort ) it3+T2 i bef ve, (om) Pet eax 
(tal, COI 5 eEDF Torin (aM pt beady 1 


; }erpeen 
+ aye ir Sep n Laesents : 
dM, Le Ws ae et 
on oy, O1om 
- Pe? 
qOTHADTT wane nants rW veo ties *> aves er 
3 lal A be. be, he) 
VET Te — &£ 
Wieteshons ) ee. RayaL hem 
id . AULEr + GP AMEL FOE ey ae 
rouh2 WSew, 4Ovan .1 U2), 203 ROT VENY 542 “ager ue am 


(Hide HAN PRS. ene Jig ede Sandie % Sdeun = 
0,03 oF § ts 


09.00 02 my doe ik ‘3 
f Yaa, bie 24, ad a. 7 
; : PR vee on ai = 
. \. Gana? 
lal « a 


, nena 
comms | re a 


Sh betas 


; wart rane TzIshAg\aC ON 
a 7 BA ai b+ 
=e 


304 


305 
306 


307 
308 
303 


310 
311 


312 
313 


314 


315 
316 
317 
318 


319 
320 
321 
322 
323 


324 
325 
326 


327 
328 
329 
330 
331 
332 
333 
334 
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245 
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TRAJEC 


IF(XDS(IP1(MM) ,MM).GE.XN-RDS+1.D-9. AND. 
XDS(IP1(MM),MM).LE.DMIN14(XUXR,XLXR)-RDS/5.D0)GOTO 245 
POINT TO BE PLOTTED? 
IF(TRUPLA.EQ.O.OR.(TRUPLA.EQ.1.AND.LAYER.GT.1))GOTO 222 
IF(IK.EQ.O0.AND.FR.EQ.1.AND.CPRED.EQ.0)GOTO 226 

POINT FOR PLOTTING? 

IF(CPRED.EQ.1)GOTO 120 

GOTO 221 

IF(CPRED.EQ.1)GOTO 140 


C HIGH ORDER INTEGRATING TECHNIQUE (CPRED=O) 


S=1 
CALL WHAMO(XDS(IP1(MM),MM),YDS(I1P1(MM)},MM),TS(I(MM)+4,MM), 
S,CLAPN, XCD, YCA) 


C HAS THERE BEEN A COLLISION? 


IF(CLAPN*DFLOAT(S).LT.O.DO)GOTO 250 
IF(FR.EQ.0)GOTO 105 


CoeES ths Sei EM eCLOSEST MAP PROACH? 


C STORE 


TRY 
50 


NOLO Or@ 


260 


IF(CLAPN/CLAP.GT.1.DO)GOTO 221 
CLOSEST APPROACH VALUE AND LOCATION. 
CLAP=CLAPN 

HCLAP=HCLAPN 

XCLAP=XCD 

GOTO 221 


HERMITE EXTRAPOLATION & HIGHER ORDER INTEGRATING 
METHOD DON’T AGREE. LATTER PREDICTS COLLISION. 


AGAIN USING HALF-SIZE DT (AND RK4 IF USING PC4). 
IF CECHEOQ SV EC=0 

DTS CHOC EF V=DTSCTO C1) Ah) 72600 
IF(PC.GE.2.AND.GLOBAL.NE.O)GOTO 260 

MM= 1 

IF(MM.EQ.1)GOTO 130 


C RETURN TO FIRST STEP OF PAIR OR TRIPLET. 


MM= 4 
LL=O 
IF(LL.EQ@.2)GOTO 270 


C DECREMENT INDICES FOR LL=1 


1(2)=1(2)-1 
ITEMP=IP1(2) 
IP1(2)=10(2) 
10(2)=IM1(2) 
IM1(2)=IM2(2) 
IM2(2)=IM3(2) 
IM3(2)=IM4(2) 
IM4(2)=ITEMP 
FR=1 

GOTO 130 


C DECREMENT INDICES FOR LL=2 


270 


C 


140 


EC2) eC 22 
ITP=IP14(2) 
ITEMP=IO(2) 
IP 1(2)=IM1(2) 
10(2)=IM2(2) 
IM1(2)=IM3(2) 
IM2(2)=IM4(2) 
IM3(2)=ITP 
IM4(2)=ITEMP 
FR=O 

GOTO 130 


C HERMITE EXTRAPOLATION TECHNIQUE (CPRED=1) 


S=1 
CALL WHAMO(XDS(IP1(MM),MM),YDS(IP1(MM),MM),TS(I(MM)+1,MM), 


S,CLAPN, XCD, YCA) 


C HAS THERE BEEN A COLLISION? 
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TRAJEC 


C IF NOT, TRY AGAIN WITH A HIGHER ORDER METHOD. 


(e: FER ORO RO FR FOR RRR RO OR RII OE a I IOI ka aE ak ok ake ake ak 


IF (CLAPN/DSIGN(RDS ,DFLOAT(S)).GT.1.D-3)GOTO 120 
CG FE EO FO RII IIR ROR ISI SEO dO aE teak ae ak ak 
C COLLISION BY HERMITE EXTRAPOLATION. 
SMASH= 4 
IF(FR.EQ.0)GOTO 105 
C IS THIS AN ‘ALMOST ’COLLISION? 
IF(CLAPN*DFLOAT(S).LT.O.DO0)GOTO 320 
XCOLL=XCD 
TCOLL=TS(1(MM)+1,MM) 
CALL SFC(XCOLL,YCOLL,S,1,LTH) 
GOTO 210 
C A TRUE COLLISION - FIND COLLISION LOCATION: 
C SET UP ITERATIVE PROCEDURE. 
320 XIM2=DMAX 1(XN-RDS+1.D- 10, XDS(IO(MM) ,MM) ) 
XL=XIM2 
S=2 
CALL WHAMO(XIM2,YIM2,TIM2,S,CIM2,XCD,YCA) 
C DOES THE TRAJECTORY CROSS THE YN LINE? 
IF (YIM2*YDS(IP1(MM),MM).GT.O.DO0)GOTO 330 
YIM1=DSIGN(1.D-10, YIM2) 
S=3 
CALL WHAMO(XIM1,YIM1,TIM1,S,CIM1,XCD,YCA) 
GOTO 510 
330 XIM1=XDS(IP1(MM) ,MM) 
XR=XIM4 
CIM1=CLAPN 
C ITERATE USING SECANT METHOD. 
510 XXI=XIM1-CIM1*(XIM1-XIM2)/(CIM1-CIM2) 
IF(XXI.GE.XL)GOTO 511 
XXI=XL 
511 IF(XXI.LE.XR)GOTO 512 
XXI=XR 
512 XIM2=XIM4 
CIM2=CIM{1 
XIM1=XXI 
S=2 
CALL WHAMO(XIM1,YIM1,TIM1,S,CIM1,XCD,YCA) 


CROOK II I ICICI ICI I A I I Rk ke tak ak ak ake ak ak ak 


IF (DABS(XIM1-XIM2).GT.1.D-9)GOTO 510 


CERIO IO CI III ICI FG a IS kok a Si ak kG GI ak ak a ie seat ake akc ak ak 


C COLLISION LOCATION. 


XCOLL=XCD 
TCOLL=TIM1 
GAUL ISECEXGOMPSYV.COURE aS, SiH) 
G 
C END OF TRAJECTORY FLAGGED: COLLISION 
210 TRJEND= 1 
Cc 


C VELOCITY AT COLLISION: 
CALL HERMIT(TS(I(MM)-1,MM),TS(I(MM),MM),UDS(IM1(MM),MM), 


UDS(IO(MM),MM),AN(1,IM1(MM),MM),AN(1,IO(MM),MM),AU,BU,CU) 
CALL HERMIT(TS(I(MM)-1,MM),TS(I(MM),MM),VDS(IM1(MM),MM), 
VDS(IO(MM),MM),AN(2,IM1(MM),MM),AN(2, TO(MM),MM),AV,BV,CV) 
TST=TCOLL-TS(I(MM)-1,MM) 
UCOLL=((AU*TST+BU)*TST+CU) *TST+UDS(IM1 (MM) ,MM) 
VCOLL=( (AV*TST+BV) *TST+CV)*TST+VDS(IM1 (MM) ,MM) 
G TOTAU VELOCETY. 
VPSQ=UCOLL *UCOLL+VCOLL *VCOLL 
C ANGLE OF TRAJECTORY INCLINATION AT COLLISION 
ATJU=DATAN2(VCOLL,UCOLL ) 
OF TRAJECTORY FROM PERPENDICULAR TO THE SFC. 
ACOLL=AS-ATU 
ACOLL=DSIGN(PI/2.D0,ACOLL )-ACOLL 
IF (GRAZE .EQ. 1)ACOLL=DSIGN(ACOLL ,DFLOAT(2*IU-3)) 


C ANGLE 
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TRAJEC 


ACOLLD=ACOLL/PI*1.8D2 
VTTL=DSQRT(VPSQ) 
IK=IK+1 
XDSP(IK)=SNGL(XCOLL ) 
YDSP(IK)=SNGL(YCOLL) 
GOTO 232 


C END OF TRAJECTORY FLAGGED: EXCEEDED YMAX 


211 


TRUJEND= 1 
IK=IK+14 

YDSP(IK)=YMAX 
IF(CPRED.EQ@.O)GOTO 215 
GOTO 219 


C END OF TRAJECTORY FLAGGED: EXCEEDED YMIN 


212 


223i) 


TRUJEND=1 
IK=IK+1 

YDSP(IK)=YMIN 
IF(CPRED.EQ.0)GOTO 215 
YY=DBLE(YDSP(IK)) 

S=5 

GOTO 233 


C FIND X FOR HIGHER ORDER METHOD. 


22415) 


XDSP( IK )=(X-XPREV)/(Y-YPREV)*(YDSP(IK)-YPREV)+XPREV 
GOTO 232 


C END OF TRAJECTORY FLAGGED: EXCEEDED XMAX 


213 


TRJEND=1 
IK=IK+1 

XDSP(IK)=XMAX 
IF(CPRED.EQ.O)GOTO 216 
XX=DBLE(XDSP(IK)) 

S=4 

GOTO 233 


C FIND Y FOR HIGHER ORDER METHOD. 


216 
232 


YDSP(IK)=(Y-YPREV)/(X-XPREV ) * (XMAX-XPREV)+YPREV 
IF(TRUPRA.EQ.O.AND.AT.EQ.1)GOTO 234 
GOTO 231 


C FIND X & Y FOR HERMITE EXTRAPOLATION. 


233 


C 
CySTORE 
22 


230 


Cc 
C PRINT 
231 


Cc 
C WRITE 


CALL WHAMO(XX,YY,TCOLL,S,22Z,XCD,YCA) 
IF(IABS(S).EQ.4)YDSP(IK)=SNGL(YY ) 
IF(IABS(S).£Q.5)XDSP(IK)=SNGL (Xx) 
IF(TRUPRA.EQ.O.AND.AT.EQ.1)GOTO 180 
GOTO 231 


PLOT COORDINATES FOR FIRST POINT WITHIN WINDOW 
IK=1 

XDSP(IK)=XMIN 
YDSP(IK)=(Y-YPREV)/(X-XPREV) *(XMIN-XPREV )+YPREV 


IF(CPRED.EQ.0)GOTO 230 
GOTO 120 


COORDS FOR LATER PLOTTING 
IF(TRUPLA.EQ.O)GOTO 230 
IF(TRUPLA.EQ.1.AND.LAYER.GT.1)GOTO 230 
IK=IK+1 

XDSP(IK)=SNGL(XDS(IO(MM) ,MM) ) 
YDSP(IK)=SNGL(YDS(IO(MM) ,MM) ) 


IF(TRUPRA.EQ.O)GOTO 105 
IF(PRD.LT.PRDSTI.AND.SHORTP.EQ.O0)GOTO 105 


INTERVAL EXCEEDED 
TTLACN=DSORT(AN( 1, 10(MM),.MM)*AN( 1, 1O(MM) ,MM)+ 


AN(2,1O(MM) ,MM)*AN(2, 1O(MM) ,MM) ) 
VPSQ=UDS(10(MM),MM)*UDS(10(MM) ,MM)+VDS(IO(MM) ,MM)*VDS(IO(MM) ,MM) 


NA=RDS*TTLACN/DTS(10(MM) ,MM)/VPSQ 


TRAJECTORY INFO INTO STORAGE FILE. 
IMN1=I(MM)-4 
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TRAJEC 


IF(PC.EQ.1.AND.I(MM).GT.4)GOTO 235 


C FOR RK4,RKF4 & GLERKS. 


IF (SHORTP .EQ.O)WRITE(7,50)IMN1,TS(I(MM),MM),DTS(IO(MM),MM), 
XDS(TO(MM),MM), YDOS(IO(MM) ,MM),PSIP,UAS(IO(MM),MM),UDS 

(1O(MM) ,MM),VAS(TO(MM),MM),VDS(TO(MM),MM),RED(IO(MM),MM),NA,HFP 
IF (SHORTP.EQ. 1)WRITE(7,55)IMN1,TS(1(MM),MM),OTS(IO(MM),MM), 
XDS(IO(MM),MM),YDS(1O(MM),MM),PSIP,UAS(IO(MM),MM),UDS 

(TO(MM) ,MM),VAS(TO(MM),MM),VDS(ITO(MM),MM),RED(IO(MM),MM),NA.HFP 
IF(TRJEND.EQ.0)GOTO 100 

GOTO 225 


G FOR]=PC4: 


235 


IF (SHORTP.EQ.O)WRITE(7,50)IMN1,TS(I(MM),MM),DTS(IO(MM),MM), 
XDS(IO(MM) .MM),YDS(IO(MM),MM),PSIP,UAS(IO(MM) ,MM), 

UDS(IO(MM) ,MM),VAS(IO(MM) ,MM),VDS(IO(MM) ,MM),RED(IO(MM),MM),NA, 
HFP,UST,VST 

IF(SHORTP.EQ. 1)WRITE(7,55)IMN1,TS(I(MM),MM),OTS(IO(MM),MM), 
XDS(IO(MM).MM),YDS(IO(MM),MM),PSIP,UAS(IO(MM),MM), 
UDS(IO(MM),MM),VAS(IO(MM),MM),VDS(IO(MM),MM),RED(IO(MM),MM).NA, 
HFP ,UST.VST 

IF(TRUJEND.EQ.0)GOTO 100 


C END OF TRAJECTORY INFO. 


BARS 


C WRITE 


181 


Cc 


WRITE(7,50)I1(MM),TS(I(MM)+1,MM) ,DTS(IP1(MM),MM),X,Y 
IF(AT.EQ.1)GOTO 181 

END OF TRAJECTORY INFO ONTO TERMINAL. 

IF (SHORTP.EQ.O)WRITE(6,50)IMN1,TS(I(MM),MM),DTS(IO(MM),MM), 
XDS(IO(MM) ,MM),YDS(IO(MM),MM),PSIP,UAS(IO(MM),MM), 

UDS(IO(MM) ,.MM),VAS(IO(MM),MM),VDS(IO(MM),MM),RED(IO(MM),MM),NA, 
HFP 

IF(SHORTP.EQ.1)WRITE(6,55)IMN1,TS(I1(MM) ,MM),DTS(IO(MM),MM), 
XDS( IO(MM) .MM),YDS(IO(MM),MM),PSIP,UAS(IO(MM),MM), 

UDS(IO(MM) ,.MM) ,VAS(IO(MM),MM),VDS(IO(MM) ,MM),RED(IO(MM),MM),NA, 
HFP 

WRITE(6,.50)I(MM),TS(I(MM)+1,MM) ,DTS(IP1(MM),MM),X,Y 
IF(TRUPLA.EQ.O0)GOTO 180 

IF(TRUPLA.EQ.1.AND.LAYER.GT.1)GOTO 180 


© PLOT TRAVECTORIES: 


234 


180 


C WRITE 


170 


~C WRITE 


195 


196 


XDSP(IK+1)=XMIN 
XDSP(IK+2)=(XMAX-XMIN)/20.0 

YDSP(IK+1)=YMIN 

YDSP(IK+2)=(YMAX-YMIN)/12.0 

CALL LINE(XDSP, YDSP,IK,1,0,0) 

IF(SMASH.EQ.1)GOTO 195 

IF(IK.NE.O0)GOTO 170 

CLOSEST APPROACH INFO. 

WRITE(6,60)MLAMBH, XCLAP,CLAP,1(MM),FNCALL, YOS(IP1(MM) ,MM) 
WRITE(7.65)MLAMBH, XCLAP,CLAP,I(MM),FNCALL, YOS(IP1(MM),MM) 
GOTO 196 

WRITE(6.60)MLAMBH, XCLAP,CLAP,I(MM),FNCALL, YDSP(IK) 
WRITE(7,65)MLAMBH. XCLAP,CLAP,I(MM),FNCALL, YDSP(IK) 


GOTO 196 


COLLISION INFO. 
WRITE(6,80)XCOLL, YCOLL,LTH, 1(MM),FNCALL,MLAMBH, VTTL,ACOLLD 


WRITE(7,85)XCOLL, YCOLL, LTH, 1(MM), FNCALL,MLAMBH, VTTL, ACOLLD 
IF(GLOBAL.EQ.0)GOTO 197 

IF(GER.EQ.1)GOTO 199 

IF(GLOBAL.EQ@.2)GOTO 198 


C CALCULATE ORDER EXTRAPOLATION GLOBAL ERROR. 


GEXX=XDS(10(1).1) 
GEX=XDS(I0(1),1)-XDS(IP1(2),2) 
GEY=YDS(10(1),1)-YDS(IP1(2),2) 
GEU=UDS(10(1),1)-UDS(IP1(2),2) 
GEV=VDS(10(1),1)-VDS(IP1(2),2) 
GOTO 199 


C CALCULATE STEP EXTRAPOLATION GLOBAL ERROR. 


198 


GEXX=XDS(IM1(2),2) 
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TRAJEC 
486 GEX=(XDS(10(1),41)-xDS(IM1(2),2))/31.D0 
487 GEY=(YOS(I0(1),1)-YDS(IM1(2),2))/31.D0 
488 GEU=(UDS(10(1),1)-UDS(IM1(2),2))/31.D0 
489 GEV=(VDS(10(1),1)-VDS(IM1(2),2))/31.D0 
490 199 IF(AT.EQ.O)WRITE(6,98)GEXX,GEX,GEY,GEU, GEV 
494 WRITE(7,99)GEXX,GEX ,GEY,GEU, GEV 
492 197 IF(AT.EQ.0)GOTO 490 
493 IF(GRAZE.EQ.0)GOTO 630 
494 IF(SMASH.EQ.1)GOTO 610 
c 
C ITERATE TOWARD THE GRAZING TRAJECTORY 
495 IF(IG.EQ.1)GOTO 600 
496 IF(CLAP/CLAPP.GE.1.D0)GOTO 605 
G We a Kok ok aK kok ok Ro ok aK ok de ok ok aK eo aK ok RK aK RR I IG Kk kak kok kak kk 
497 IF (DFLOAT(2*IU-3)*(CLAP+CLAPP).LE.2.D-5)K=K+0. 1D0O 
(G3 FEE EO OK oe oR ok KK ek oo ook ao ok ok ke oko ai oR aK EK oR oko ok oko ok ok KK oR ok ak ok ak ok ok ak ak ak ak ok 
C FIND NEW YO POSITION BY USING THE SECANT METHOD TO ESTIMATE 
Ec THE LOCATION OF YO AT GRAZING 
498 SLP=(YOT(IG, IJU)-YOT(IG-1,IJU))/(CLAP-CLAPP ) 
499 YOT(IG+1,1U)=YOT(IG, IU)-K*CLAP*SLP 
500 GOTO 606 5 
C AFTER FIRST MISSING TRAJECTORY, ESTIMATE NEW YO VIA CLAP. 
501 600 VOTC1, LU ySvorcivg, a7 


C ESTIMATE NEW YO VIA CLAP ALONE. 


CK RR RK eo 2 Koo ee OK oe oo ok cok OE oo aK oR oo oe oe oo 2 3 oo ok oo aK ak ak ak ok ok ok ok a ok 


502 605 YOT(IG+1,IJU)=YOT(IG, IU)-O.85DO*CLAP 
c 2K OK EK KK KK OK OK Ko oo eK EK KK EK OK 2K ok ok ok ok OK 2K ok ok 2K 2 OK oe ok ok OK 2K ok ok OK a 3K ok ok OK ok aK ok ok ok 2 ok ok ok ok 
503 606 YOG=YOT(IG. Iu) 
504 CLAPP=CLAP 
505 KLAP=CLAP 
506 IG=IG+1 
507 VYOS(1; 1)=VYOT(1G, Iu) 
508 GOTO 405 
C 
C THESE ARE COLLIDING TRAJECTORIES. ARE THEY THE GRAZING ONE? 
509 610 IF(IG.GT.1)GOTO 620 
510 WRITE(6,390) 
C ADJUST FIRST TRAJECTORY TO BE A NEAR MISS 
511 YOI(IJU,JU)=YOI(IU,JU)+DSIGN(5.D-4,DFLOAT(2*IJ-3) ) 
512 VDOSCt Sty eVOICl dd) 
513 GOTO 405 


C WAS LAST TRAJECTORY ALMOST GRAZING? 


@ SOK KK RK ok ook oe oko oe ok oe ok kk ok ok oie ak ok ok ok ok oo 9K ok KK ok ok ag ok oR ok ok oe ak 2K aK ok ae 2 aK ok ak aK ok ok ok oe ok ok or 


514 620 IF(DABS(KLAP).LT.1.5D-5)GOTO 625 


‘e eK RE ERO RE ER ROR OR IK IR EI a a OK af ok ok oko a ak a ok akc ak ok ak ok aE ak ake akc ake ake ake ak: ak 


C IS ANGLE OF COLLISION CLOSE TO 90 DEG.? 


SEK ORO OK OKOKER ORR ORO RR ERGO I aE ook sR FR aK OK aE koa ak a ak ake ok aa ak ak a ake ak aE ok 


¢ 
515 IF(90.DO-DABS(ACOLL)/PI*1.8D2.LE.TD)GOTO 625 
E SEK ROK KR RR ok a oR ok oR RR RK ok ok oe ok oe eka a ak ok koe 2 oe 2 a EE a OK a a oe a Eo ok EK OK ok 
516 TD=TD+O. 1D0 
© SOK KO RR RR ROK kK aR ka ook ok ka ok ke a ok ok ak kok kak ake ake ae oe ak ok ea ae ak Sg a ae oe aie ae akc ake ae ake oe ie oe a a oe 2k 
C THE ANGLE OF COLLISION ISN’T CLOSE ENOUGH TO 90 DEG. 
c TRY AGAIN MIDWAY BETWEEN PREVIOUS TWO TRAJECTORIES. 
G SO OR OK RR RK RR aR ok ok ok ake ak ok ole ak ak ke 2 ak ke ake ak ke ok ake oie aie ok ake oie oie 2 ake ai a 2 a oie aie ie ae ake ae ok ae oe oe a ok oe 
517 K=K-0.05D0 
C eR KRG RRR ORR ak I i ok ak ok i ak ae aie ak ic a ale ae ake 2 ate ae ok ke ake ae ake ai eo ic oie ie ae i eo eo eo Oe 
518 YOT(IG, IU) =(YOT(IG, IU)+YOG)/2.D0 
519 ¥DS(1, 1) =YOT(IG, IJ) 
520 GOTO 405 
C THIS IS THE GRAZING TRAJECTORY. 
521 625 YO(IU)=YOT(IG, Iu) 
522 L(Iv)=LTH 
523 VTOT(IJU,JU)=VTTL 
524 ACOL(IJU,JU)=ACOLL 


IF(BOTH.EQ.1.AND.IU.EQ.2)GOTO 460 
526 RETURN 
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WHAMO 
C 
C THESE ARE COLLIDING TRAJECTORIES 
630 IF(SMASH.EQ.1)GOTO 635 
WRITE(6,95) 
RETURN 
Cc 
635 LW(N)=LTH 
VTW(N)=VTTL 
ACW(N)=ACOLL 
RETURN 
END 
Cc 
CG SSS SS SSS SPSS HSS SSS SSS SSS SS SS SS SSS SS SS SSS SSS SSS SSS Se ss sss sess sess 
Cc 
SUBROUTINE WHAMO(X,Y,T,S,CLAP,XCD,YCA) 
C 
C WRITTEN BY: M. OLESKIW ON: 810623 LAST MODIFIED: 811018 
Cc 
C DETERMINE CLOSEST APPROACH BETWEEN DROPLET AND AIRFOIL SFC. 
c 
DOUBLE PRECISION DSIGN.DSQRT,AX,AY,A1,A2,A3,BX,BY,TST, 
CLAP, CX,CY ,.DSQ,Q,R,RDS,OD(5),C,SLOPE,SS,T,TT,DFLOAT, 
.X,XCD,XN.YN,XO,YO,Y,YCA,YCD,YS1,YS2,ZZ,D, THETA3, DARCOS, 
.SQ,RT(4), ALPHAR,PI,T1,DCOS,TO,A31,DABS,DMIN1,DMAX1, 
le de UR d= 
Cc 
INTEGER IABS,ISIGN, TYPE,J,S,AS,IR(4),LA,I 
Cc 
COMMON ALPHAR,PI/WH/AX,BX,CX,AY,BY.CY,XO,YO,TO,T1 
./TRANS3/0D,C, TYPE, J/NOSE/XN, YN/XXR/XUXR, XLXR 
(fe 
C IN/OUT X=DROPLET X COORD. 
C IN/OUT Y=DROPLET Y COORD. 
C IN/OUT T=TIME AT ABOVE POSITION. 
C IN/OUT S=1:GIVEN X, Y & T, FIND CLAP. 
GC 2:GIVEN X, FIND T, Y & CLAP. 
c 2 2GIVEN \Vis FIND vil X & CLAP. 
Cc 4:GIVEN X, FIND T & Y. 
€ 5:GIVEN Y, FIND T & X. 
@ +VE:DROPLET IS ABOVE NOSE. 
C -VE:DROPLET IS BELOW NOSE. 
6 OUT, CLAP=CLOSEST APPROACH BETWEEN DROP & AIRFOIL SFC. 
Cc OUT XCD= 
C OUT YCA=X & Y COORDS OF AIRFOIL AT CLOSEST APPROACH. 
‘e 
RDS=DD(J)/C/2.D6 
AS=IABS(S) 
IF(AS.EQ.1)GOTO 200 
IF(AS.EQ.2.0R.AS.EQ.4)GOTO 150 
Cc 
C FIND COEFFICIENTS FOR Y EQN. 
A1=BY/AY 
A2=CY/AY 
A3=(YO-Y)/AY 
GOTO 110 


C FIND COEFFICIENTS FOR X EQN. 

150 A1=BX/AX 
A2=CX/AX 
A3=(XO-X)/AX 

C FIND TIME TST 

110 Q=(3.DO*A2-A1*A1)/9.D0 
R=(9.DO*A1*A2-27.DO*A3-2.DO*A1**3)/54.DO 
D=Q**3+R*R 
A31=A1/3.D0 
IF(0.GT.O)GOTO 310 
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WHAMO 


C FOR A NEGATIVE DISCRIMINANT: 
THETA3=DARCOS(R/DSORT(-Q**3))/3.D0 
SQ=2.DO*DSORT(-Q) 
RT(1)=0.98D0*(T1-TO) 
RT(2)=SQ*DCOS(THETA3)-A31 
RT(3)=SQ*DCOS( THETA3+2.D0/3.DO*PI)-A31 
RT(4)=SQ*DCOS(THETA3+4 .DO/3.DO*PI)-A314 

DO 315) (l=4;34 


IR(I)=1 
SiS CONTINUE 
C SORT FOR LEAST ROOT GREATER THAN TS(I(MM),MM). 
LA=4 


CALL VSRTRD(RT,LA,IR) 
L=4 

330 IF(IR(1I).EQ.1)GOTO 320 
I=I+14 
GOTO 330 

320 TST=RT(I+1) 

GOTO 340 

C FOR A POSITIVE DISCRIMINANT: 

310 DSQ=DSORT(D) 

SS=DSIGN( (DABS(R+DSQ) )**(1.D0/3.D0),R+DSQ) 
TT=DSIGN( (DABS(R-DSQ) )**(1.D0/3.D0),R-DSQ) 
TST=SS+TT-A31 

340 T=TST+TO 
IF(AS.EQ.2.0R.AS.EQ.4)GOTO 160 

c 

C POSITION OF DROP CENTRE AT TIME T 
X=((AX*TST4+BX ) *TST#+CX ) *TST+XO 
GOTO 200 

160 Y=((AY*TST+BY )*TST+CY)*TST+YO 

200 IF(AS.GE.4)RETURN 

C SET S NEGATIVE FOR BELOW NOSE. 
IF(Y.LT.YN)S=-IABS(S) 

Cc 

300 XL=DMAX1(X,XN+1.D-10) 
XR=DMIN1(X+RDS,XUXR, XLXR) 

CALEY SFE CXL WYS 12S O22) 
CALI SFECUXRs NS2.5 Onze) 
SLOPE =DSQRT((XR-XL)**2+(YS2-YS1)**2) 

C FIND DROPLET X & Y COORDS. OF CLOSEST APPROACH. 
YCD=Y-DSIGN( (XR-XL)*RDS/SLOPE ,DFLOAT(S) ) 
XCD=DMAX1(XN,X-ISIGN(1,S)*RDS*(YS1-YS2)/SLOPE ) 

C FIND AIRFOIL Y COORD. AT CLOSEST APPROACH. 
XCD=DMAX1(XCD,XN+1.D-10) 
XCD=DMIN1(XCD, XUXR, XLXR) 

CALL SFCCXCD, YCA.,S..0.22) 

C CLOSEST APPROACH. 
CLAP=YCD-YCA 
RETURN 
END 
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APPENDIX H. Program tolerances, adjustments and options. 


Chapter 3 described a sequence of trials that were used to estimate the 
optimum values of the subset of tolerances and options which the program requires 
as user input. It also mentioned that another set of tolerances and adjustments are 
built into the program because they should not require frequent modification. The 
first section of this appendix describes these built-in tolerances and adjustments. The 
second section is a listing of the complete set of input parameters in the exact format 
required by the program for each of the cases mentioned in Chapters 3, 4, and 5. 

All of the locations where adjustments may be made to tolerances and to 
algorithms in the program have been indicated by a row of '*'s before and after the 
line of interest. The references to program location are by the convention adopted in 
the previous chapter, that is by the internal statement number of a given subroutine as 
listed in Appendix G The important adjustment options are outlined below, in 
approximately the same order as they would be encountered during a routine execu- 
tion of the program. Their present values have been chosen through a process of 
trial and error. 

1. Finding appropriate values for e and 6 in (2.13) to produce a Joukowski airfoil 
of desired thickness (see Section 2.2.2.2): Tolerances for the subroutine ZXGSN 
are set at COORD[73] and [80] for ®. A tolerance for ending the Secant 
algorithm used to find the appropriate value of e is set at COORDS[95]. 

Pm Inverting the system of equations to give the vorticity density in the Kennedy and 
Marsden technique: (see Section 2.2.4): The inverting subroutine LEQT1F tests for 
the accuracy of the solution to Ax = b by changing elements of A after IDGT 
decimal places and determining if the resulting solution is near the original. IDGT 
is set at POT 1[54). 

3. Finding ordinate vaiues of interpolated points along the airfoil surface: A 
Newton-Raphson algorithm is used to iterate to the correct value of Yp 
according to formulae of Appendix F. The tolerance for deciding when to stop 
the iterations is found at SFC [43] and [86]. 

4. Determining the grazing trajectories (see Section 2.4.4): The secant algorithm is 


used to iterate to the grazing trajectory. The algorithm is modified by the 
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parameter k in (2.86), which is set at TRAJEC[104], [485] and [505] When a 
droplet passes to within 10-' chord lengths from the airfoil surface on two 
consecutive trajectories, the rate of convergence is accelerated. This tolerance 
is set at TRAJEC[485]. The rate of convergence after the first trajectory (be- 
fore the Secant algorthm may be employed) is set at TRAJECI490]. If the previ- 
ous trajectory passed within 1.5x10-5 chord lengths of the airfoil surface and the 
Present one ends in a collision, this is considered to be the grazing trajectory. 
This tolerance is set at TRAJEC[502]. On the other hand, if the angle between 
the tangent to the trajectory and the normal to the airfoil surface is close enough 
to 90°, this is the grazing trajectory. This tolerance is set at TRAJEC[503] and 
[504]. 

Proximity of approach which is defined as a collision (see Section 2.4.3): If the 
droplet surface approaches the airfoil to within 0.1% its radius, it is deemed to 
have collided. This tolerance is set at TRAJEC[340]. 

Finding the collision location (see Section 2.4.3): The Secant algorithm is used to 
iterate toward the collision location as in Fig. 6 until the difference in x between 
two iterations is less than 10-9 (TRAJEC[370)). 

Adjusting the time step in RKF4 conservatively (see Appendix B): This is done to 
reduce the likelihood that the step size chosen will be too large, thereby causing 
the estimated trucation error to exceed the tolerance (GLERK[94, 1 1 1}). 
Adjustment of the next time step depending upon the previous and current step 
sizes (see Appendix B): This is required to damp the undesirable oscillations in the 
step which are chosen automatically. This adjustment also occurs in the interval 
GLERK5[94, 11 1]. 

Stepping over difficult integrating regions (see Appendix B): Occasionally, the air 
velocity will change so rapidly in a short distance that the current time step can- 
not be made small enough for all component equations to satisfy the truncation 
error tolerance because of small errors in calculating the air velocity. When 
such situations occur, the tolerance is bypassed. This situation is detected in 


GLERK5| 12 1}. 
The distance between trajectory pairs for calculating 8 (see Section 2.4.5.1): The 
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greater the distance between the pair of trajectories, the greater is the 
computational accuracy. However, at the same time the g value derived 
becomes averaged over a greater interval, thereby losing accuracy if the slope of 
the 8 curve in that region is changing rapidly. The distance between the pairs is 
set at CE[35] and [44]. 

Locating the first trajectory pair within the grazing trajectory envelope (see 
Section 2.4.5.2): Experiments have shown that the position of the first point on 
the 8 curve can greatly affect the rapidity with which the procedure used to 
determine the 8 curve converges to a consistent shape. These locations are 
calculated at CE[38,39]. 

Adjusting the variable filter length algorithm (see Section 2.4.5.4): The constants 
used in these formulae are adjustable to give the "best” agreement between the 
averaged and smoothed 8 curves. The filter length is calculated at CE[355] and 
[358]. 

The position of the new nose after accretion (see Section 2.4.7): The Golden 
Section search algorithm ZXGSN needs to know when to stop searching for the 
new nose position. This criterion is located at ICINGI27 1]. 

Finding CEE’s on the new airfoil surface (see Section 2.4.9): The parameters for 
determining which SSE's also become CEE’s are located at ICINGI430], [434], 
[441], [453,455], [464], [488,490] and [499]. 
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APPENDIX |. Sample program output. 


The output which follows is a portion of the output from Case 32. It is dis- 
played here because the trajectory data for this case were used in determining the 
correct values of the scaling parameters for Case 61. Included are sample pages of 
output prior to the grazing trajectory, as well as for a trajectory pair well within the 
grazing trajectory envelope. Also displayed are pages giving the layer thickness and 
collision efficiency values, the total accreted area, and the coordinates of the final 
airfoil surface. 

On the first page, STEP refers to the time step number, DTS to its size, and 
TIME to the sum of DTS. XDS and YDS give the droplet position, PSI the 
streamfunction value, and UAS, UDS, VAS, VDS the x and y components of the air and 
droplet velocities. RED displays the droplet Reynolds number, ACCN/MOD the 
acceleration modulus, and HIST/RHS the proportion of the total acceleration 


contributed by the history term. 


ACCRETION OF LAYER 1 DROPLET DIAMETER: 25.5 EPS= 3.000E-06 


TRAJECTORY STARTING POSITION IS X= -5.00 YO= 0.03587 


STEP TIME OTS xDS YDS PSI UAS UDS VAS vos RED ACCN/MOD HIST/RHS 
3 0.21 0.2715 -4.79470 0.03587 0.03585 0.99936 0.39940 0.00001 0.00001 0.006 0.00000 0.03890 
4 0.48 0.3728 -4.52338 0.03588 0.03585 0.99928 0.99937 0.00001 0.00001 0.011 0.00000 0.05767 
5 0.85 0.4349 -4.15083 0.03588 0.03585 0.99916 0.99929 0.00001 0.00001 0.017 0.00000 0.07589 
6 1.28 0.4735 -3.71626 0.03588 0.03585 0.99897 0.99916 0.00002 0.00001 0.025 0.00000 0.08966 
7 1.76 0.4856 -3.24320 0.03589 0.03584 0.99868 0.99895 0.00003 0.00002 0.036 0.00000 0.09760 
8B 2.24 0.4616 -2.75817 0.03590 0.03584 0.99823 0.89865 0.00004 0.00003 0.055 0.00000 0.10110 
9 2.71 0.4121 -2.29727 0.03592 0.03583 0.99755 0.99820 0.00007 0.00004 0.085 0.00000 0.10000 
10 3.12 0.3571 -1.88600 0.03594 0.03582 0.99655 0.99756 0.00011 0.00007 0.134 0.00000 0.09638 
11 3.47 0.3036 -1.52995 0.03597 0.03580 0.99507 0.99669 0.00019 0.00011 0.213 0.00000 0.09126 
13 4.03 0.2085 -0.97483 0.03607 0.03571 0.98978 0.99386 0.00059 0.000293 0.539 0.00000 0.07908 
15 4.41 0.1321 -0.60181 0.03625 0.03549 0.97902 0.98887 0.00181 0.00075 1.306 0.00001 0.06672 
* 19 4.78 0.0227 -0.23654 0.03688 0.03432 0.93161 0.97031 0.01229 0.00383 5.224 0.00022 0.04530 
20 4.80 0.0229 -0.21459 0.03698 0.03411 0.92398 0.96740 0.01472 0.00449 5.883 0.00026 0.04427 
21 4.83 0.0222 -0.19248 0.03709 0.03385 0.91480 0.96399 0.01793 0.00534 6.697 0.00031 0.04358 
22 4.85 0.0260 -0.17108 0.03722 0.03355 0.90409 0.96012 0.02208 0.00639 7.674 0.00032 0.04209 
23 4.87 0.0271. -0.14616 0.03741 0.03308 0.88861 0.95465 0.02890 0.00803 8.135 0.00038 0.04039 
24 4.90 0.0252 -0.12034 0.03766 0.03243 0.86790 0.94752 0.03966 0.01048 11.185 0.00054 0.03833 
25 4.93 0.0212 -0.09659 0.03796 0.03157 0.84298 0.93907 0.05547 0.01389 13.809 0.00086 0.03612 
27 4.97 0.0149 -0.06048 0.03866 0.02940 0.79019 0.92072 0.10348 0.02349 20.191 0.00210 0.03224 
29 4.99 0.0105 -0.03503 0.03949 0.02656 0.74509 0.90169 0.17858 0.03779 27.775 0.00477 0.02926 
32 5.02 0.0070 -0.01086 0.04086 0.02174 0.73352 0.87903 0.31587 0.06589 38.150 0.01173 0.02696 
36 5.05 0.0071 0.01201 0.04318 0.01449 0.84461 0.86488 0.46679 0.11454 46.536 0.01567 0.02716 
40 5.08 0.0068 0.03706 0.04739 0.00627 1.04996 0.88014 0.48081 0.17580 46.044 0.01501 0.03104 
43 5.10 0.0081 0.05622 0.05153 0.00224 1.15244 0.90836 0.41468 0.20856 42.136 0.01047 0.03462 
.46 5.12 0.0102 0.08040 0.05729 0.00018 1.21666 0.94825 0.32353 0.22989 37.494 0.00641 0.03802 
48 5.14 0.0124 0.10104 0.06228 0.00035 1.24059 0.98012 0.25722 0.23561 34.473 0.00438 0.03975 
50 5.17 0.0156 0.12728 0.06846 0.00223 1.25118 1.01534 0 189823 0.23264 31.629 0.00291 0.04081 
52 5.20 0.0202 0.16157 0.07596 0.00635 1.24903 1.05236 0.12137 0.21879 28.948 0.00187 0.04122 
53 5.22 0.0220 0.18299 0.08026 0.00948 1.24312 1.07090 0 08776 0.206393 27.622 0.00157 0.04126 
54 5.25 0.0231 0.20669 0.08464 0.01321 1.23441 1.08790 O 05645 0.19223 26.346 0.00136 0.04130 
55 5.27 0.0239 0.23198 0.08889 0.01737 1.22360, 1.10251 0.02840 0.17556 25.136 0.00121 0.04140 
56 5.29 0.0248 0.25851 0.09288 0.02181 1.21132 1.11448 0.00371 0.15764 23.986 0.00107 0.04164 
57 5.32 0.0257 0.28625 0.09655 0.02181 1.19794 4.12387 -0.01794 0.13894 22.882 0.00096 0.04202 
58 5.34 0.0202 0.31524 0.09988 
STABILITY INDEX: -©0.985 AT X= 0.09015 CLOSEST APPROACH IS Y= 0.00002 


TIME STEPS= 58 FN. EVALUATIONS= 400 FINAL Y= 0.09819 
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ACCRETION OF LAYER 


1 


TRAJECTORY STARTING POSITION IS X= 


STEP TIME DTS 

SeOmenmOmcore 
4 0.47 0.3702 
5S 0.84 0.4332 
6 1.28 0.4726 
PTO Or4eSs 
8 2.23 0.4623 
S27 005 41311 
1053219 (073580 
11 3.47 0.3045 
13. 4.03 0.2091 
15 4.40 0.1324 

* 19 4.78 0.0224 

20 4.80 0.0225 
a4 B20), 02) 1:7 
22 4.84 0.0251 
23 4.87 0.0258 
24 4.89 0.0239 
26 4.94 0.0174 
28 4.97 0.0123 
31 5.00 0.0077 
36 5.03 0.0032 
38 5.04 0.0021 
39 5.04 0.0056 


COLLISION COORDS: 


TIME STEPS= 39 FN. 


STABILITY INDEX= 


sida 


-4 


-4. 
ae 
ee Ne 
= 25 
=o 


fia 


X= 


EVALUATIONS= 267 


-O0.983 COLLISION VELOCITY: 


ACCRETION OF LAYER 


1 OROPLET DIAMETER: 25 


TRAJECTORY STARTING POSITION IS X= 


STEP TIME DTS 


SO eteOn2hOo 
4 0.48 0.3720 
5 0.85 0.4345 
6 1.28 0.4732 
7 1.76 0.4855 
8 2.24 0.4617 
9 2.70 0.4123 
107 53) 12.07 35,72 
11 3.47 0.3038 
13. 4.03 0.2085 
15 4.41 0.1319 
* 19 4.78 0.0223 
20 4.80 0.0225 
21 4.82 0.0216 
22 4.84 0.0250 
23 4.87 0.0257 
24 4.89 0.0238 
26 4.94 0.0174 
28 4.97 0.0123 
Bio TOO NOOO 77 
36 5.03 0.0032 
38 5.04 0.0020 
39 5.04 0.0056 


COLLISION COORDS: 


-4. 
=4. 
-4. 
-3. 
=) t 
2 


=~ 


oO. 


X= 


TIME STEPS= 39 FN. 


STABILITY INDEX= 


LOCAL BETA: 79.2% 


-O 


ESic 


XDS 

79470 
52437 
15259 
71846 
24572 
76080 
. 29978 
.88833 
.53211 
.87689 
- 60384 
23994 
.21831 
. 19662 
. 17584 
- 15192 
. 12746 
.08572 
.05625 
. 02802 
.00427 
00018 
00173 


0.00057 


loRoRoKowowokokokokokokokohokokeokokekokoneolone 


yos 


.00441 
.00441 
-00441 
.00441 
.00441 
.00441 
-00441 
.00442 
.00442 
.00443 
.00445 
.00453 
.00454 
. 00456 
.00457 
.00459 
.00462 
.00469 
.00478 
.00494 
.00528 
.00542 
.00549 


=5.00 YO= 


loRoKoMoRoKoRokokovokokokoveokokokonononeokone 


PSI 


.00440 
.00440 
.00440 
.00440 
-00440 
-00440 
.00440 
.00440 
.00440 
.00439 
. 00436 
.00422 
.00419 
-004 16 
.00413 
. 00407 
.00400 
. 00379 
.00343 
- 00284 
-00101 
.00055 


Y= 0.00543 L= 


EVALUATIONS= 267 


.984 COLLISION VELOCITY: 


MAX BETA: 


5) 


oloReooRoeRowowoloRovokeokolonokononononene 


O. 


29 


looRoKoKoKowokokolokokokokokolkokonokokeneonke) 


EPS= 3.000E-06 


.00420 


UAS 


- 99936 
- 99928 
. 99916 
. 99897 
. 39868 
. 99824 
neo TOW 
. 99657 
-99511 
. 98984 
.97911 
-93122 
-92342 
.91401 
. 90305 
.88718 
.86577 
80756 
. 73109 
-57916 
. 21342 
-06476 


DROPLET DIAMETER: 25. 
-5.00 YO= 

XDS YOS BST 
79470 0.00420 0.00419 
-52762 0.00420 0.00419 
15766 0.00420 0.00419 
72480 0.00420 0.00419 
25268 0.00420 0.00419 
76790 0.00420 0.00419 
30623 0.00420 0.00419 
-89404 0.00420 0.00419 
-53701 0.00421 0.00419 
-98030 0.00422 0.00418 
-60603 0.00424 0.00415 
-24069 0.00431 0.00402 
-21897 0.00432 0.00393 
-19720 0.00434 0.00396 
-17636 0.00435 0.00383 
.15237 0.00437 0.00388 
.12783 0.00440 0.00381 
-08598 0.00447 0.00361 
-05645 0.00455 0.00332 
.02817 0.00470 0.00271 
.00427 0.00503 0.00035 
-00019 0.00517 0.00052 
-00175 0.00523 
0.00052 Y= 0.00517 L= 0.00520 
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EPS= 


-00441 


UAS 


. 99936 
- 99928 
. 99916 
. 998397 
. 99868 
- 99823 
.99755 
-99655 
. 99508 
. 98979 
. 97900 
. 93097 
-92316 
.91373 
.90275 
.88685 
86541 
- 80710 
. 73051 
.57824 
. 21676 
-O7221 


0.00547 
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AT 


UDS 


. 99940 
- 99937 
-99929 
-99916 
. 99896 
.99865 
.99821 
. 99758 
.99671 
. 99389 
- 98892 
- 97036 
.96745 
-96405 
- 96022 
- 95486 
-94794 
.83041 
. 90936 
.87179 
. 79307 
.76251 


13.6 


3. OOOE -06 


loMofoKoMokoRokoweokokokokeovokokonekononeokeonke) 
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. 99940 
. 99937 
. 99929 
- 99916 
. 99896 
-99865 
. 99820 
- 99757 


99669 


. 99386 
- 98887 
- 97027 


96736 


. 96396 
-96012 
-95476 
.94783 
- 93027 
- 30920 
-87154 
. 79339 
. 76326 


0.76102 AT 14.3 


81.3% MAX BETA CHANGE: 
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BETAO (MAX LOCAL CE) IS 62.7% AT A DISTANCE OF -0.000 FROM THE NOSE. 


THE TOTAL COLLISION EFFICIENCY IS 24.4% 


MASS MEAN DIAMETER: 19.3 MICROMETERS. 
DROPLET DROPLET 
DIAMETER DIAMETER 
25.5 UM 13.2 UM 
DISTANCE LAYER NORM. AVERAGE 
END FROM ACCRETION ICE COLLISION COLLISION COLLISION 
POINT xX COORD yY COORD NOSE THICKNESS DENSITY EFFICIENCY EFFICIENCY EFFICIENCY 
1 O.00000 0.0 0.0 0.02452 1.000 TALS 81.27 62.67 
2 0.00004 0.00141 0.00141 0.02447 1.000 71.80 81.13 62.48 
3 0.00015 0.00282 0.00283 0.02441 1.000 71.31 80.69 61.93 
4 0.00035 0.00423 0.00425 0.02431 1.000 70.56 TEST Gi245 
5 0.00062 0.00564 0.00569 0.02420 1.000 69.58 78.98 60.17 
6 0.00087 0.00705 0.00714 0.02404 1.000 68.35 UT TE 58.96 
7 0.00139 0.00845 0.00860 0.02384 1.000 66.87 76.26 57.48 
8 0.00189 0.00886 0.01008 0.02360 1.000 65.17 74.59 55.75 
9 0.00247 0.01125 0.01161 0.02330 1.000 63.28 UZeUS) 53.81 
10 0.00313 0.01265 0.01315 0.02295 1.000 61.26 70.76 $1.76 
Ww 0.00386 0.01404 0.01472 0.02256 1.000 59.12 68.66 49.59 
Ue 0.00467 0.01542 0.01632 0.02212 1.000 56.88 66.45 47.31 
13 0.00556 0.01680 0.01796 0.02162 1.000 54.57 64.18 44.95 
14 0.00652 0.01817 0.01964 0.02107 1.000 52.21 61.86 42.55 
15 0.00756 0.01854 0.02135 0.02047 1.000 49.81 59.51 40.12 
16 0.00867 0.02080 0.02311 0.01982 1.000 47.41 57.16 37.65 
17 0.00987 0.02225 0.02491 0.01912 1.000 44.99 54.82 35.16 
18 0.01113 0.02359 0.02676 0.01839 1.000 42.59 52.50 32.68 
19 0.01248 0.02483 0.02866 0.01763 1.000 40.23 50.20 30.25 
20 0.01390 0.02625 0.03060 0.01684 1.000 37.90 47.94 27.86 
21 0.01539 0.02757 0.03259 0.01601 1.000 35.58 45.70 25.47 
22 0.01696 0.02888 0.03464 0.01516 1.000 33.28 43.49 23.06 
23 0.01861 0.03017 0.03673 0.01428 1.000 31.02 41.33 20.70 
24 0.02033 0.03146 0.03888 0.01341 1.000 28.85 39.22 18.48 
25 0.02213 0.03273 0.04108 0.01254 1.000 26.72 37.16 16.29 
26 0.02400 0.03400 0.04334 0.01162 1.000 24.56 35.15 13.97 
27 0.02594 0.03525 0.04565 0.01068 1.000 22.39 33.20 11.59 
28 0.02796 0.03649 0.04802 0.00979 1.000 20.41 31.29 9.53 
29 0.03006 0.03771 0.05045 0.00303 1.000 18.71 29.43 8.00 
30 0.03222 0.03892 0.05293 0.00810 1.000 16.69 27.61 Shit 
31 0.03447 0.04012 0.05547 0.00690 1.000 14.13 25.83 2.42 
32 0.03678 0.04130 0.05807 0.00591 1.000 12.05 24.11 0.0 
33 0.03917 0.04247 0.06073 0.00551 1.000 11.22 22.43 0.0 
34 0.04163 0.04362 0.06344 0.00512 1.000 10.40 20.80 0.0 
35 0.04416 0.04476 0.06622 0.00474 1.000 9.61 19.21 0.0 
36 0.04676 0.04588 0.06906 0.00436 1.000 8.83 17.65 0.0 
37 0.04944 0.04699 0.071985 0.00399 1.000 8.06 16.12 0.0 
38 0.05219 0.04808 0.07491 0.00363 1.000 7.32 14.63 0.0 
39 0.05500 0.04915 0.07792 0.00328 1.000 6.60 13.20 0.0 
40 0.05789 0.05020 0.08100 0.00294 1.000 5.91 11.81 0.0 
41 0.06085 0.05124 0.08413 0.00260 1.000 5.23 10.47 0.0 
42 0.06388 0.05225 0.08733 0.00227 1.000 4.57 9.14 0.0 
43 0.06698 0.05325 0.09059 0.001394 1.000 3.88 SPY 0.0 
44 0.07015 0.05423 0.08390 0.00158 1.000 Sieh, 6.34 0.0 
45 0.07339 0.05519 0.09728 0.00124 1.000 2.48 4.95 0.0 
46 0.07670 0.05613 0.10072 0.000392 1.000 1.84 3.68 0.0 
47 ©.08007 0.05705 0.10422 0.00064 1.000 1.28 2.56 0.0 
48 0.08352 0.05795 0.10778 0.00040 1.000 0.80 1.60 0.0 
49 0.08703 0.05883 0.11139 0.00018 1.000 0.37 0.74 0.0 
50 0.09060 0.05969 0.11507 -0.00000 1.000 0.0 0.0 0.0 


THE ACCRETED AREA FOR LAYER 1 IS 0.002710 


THE ACCUMULATED ACCRETED AREA IS 0.002710 
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COORD 


. 00000 
-00275 
.00548 
.008 18 
-01083 
-01342 
.01593 
-01835 
-02068 
-02289 
.02500 
-02699 
-02886 
- 03060 
.03223 
.03374 
-03514 
-03643 
-03763 
.03873 
-03974 
- 04066 
.04151 
-04231 
- 04304 
.04370 
.04429 
-04489 
.04555 
.04603 
.04623 
.04659 
.04744 
-04828 
.04910 
-04990 
.05069 
.05146 
-05222 
-05296 
.05370 
-05441 
-05510 
.O5575 
-05638 
.05702 
.05767 
-05834 
.05901 
.O05969 
.06053 
-06135 
.06214 
.06292 
. 06367 
-06439 


.06510 
.06578 
.06644 
.06708 
.06769 
.06828 
-06884 
.06938 
.06990 
.07039 
.07086 
.07130 
aO Tine 
.O7211 
-07248 
.07283 
.07314 
.07344 
.O7371 
.07395 
-O7417 
.07436 
.07379 
.O6650 
.05405 
.03889 
-02387 
.01163 
.00383 
.0005 1 
me) 


DISTANCE 
FROM 
NOSE 


0.0 

-00275 
.00550 
-00824 
-01096 
-01367 
.01636 
-01904 
.02169 
-02433 
.02695 
-02955 
.03214 
-03472 
-03729 
-O3986 
.04243 
.04501 
.04758 
.05017 
.05277 
.05538 
-05801 
.O6066 
-06332 
.O06601 
.06874 
.07147 
.07419 
.07700 
.07994 
.08283 
-0856 1 
-08845 
-09132 
-09425 
.09723 
10027 
- 10335 
10648 
. 10967 
11292 
11622 
SUSY 
. 12298 
. 12645 
. 12997 
. 13354 
13717 
. 14085 
. 14459 
14839 
15225 
15616 
- 16014 
- 16418 


16827 
17243 
17664 
. 18031 
. 18524 
18962 
. 19406 
. 19856 
- 20312 
. 20773 
21239 
nat? 12 
.22189 
- 22672 
. 23161 
.23655 
. 24154 
. 24659 
. 25168 
. 25683 
. 26203 
. 26728 
. 36439 
. 47280 
- 58804 
. 70444 
.81519 
-91275 
. 98947 
.03863 
.O05557 
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STANCE 
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(e) 


-O. 


.O 

00275 
.00550 
.00824 
.01096 
-01367 
-01636 
-01904 
-02169 
-02433 
.O2695 
-02355 
.03214 
.03472 
-03729 
.03986 
-04243 
.04501 
.04758 
-05017 
.05277 
.05538 
.05801 
. O6066 
-06332 
. 06601 
-06874 
.07147 
.07419 
.07700 
.07994 
.08283 
-08561 
-08845 
-09132 
.09425 
.09723 
- 10027 
. 10335 
- 10648 
. 10967 
- 41292 
- 11622 
aU EY 
- 12298 
- 12645 
. 12997 
. 13354 
. 13717 
- 14085 
. 14459 
. 14839 
. 15225 
. 15616 
. 16014 
- 16418 


- 16827 
.17243 
. 17664 
. 18091 
- 18524 
. 18962 
. 19406 
. 19856 
- 20312 
. 20773 
. 21239 
ease te 
.22189 
- 22672 
-23161 
. 23655 
. 24154 
. 24659 
. 25168 
. 25683 
. 26203 
. 26728 
- 36439 
. 47280 
. 58804 
- 70444 
-81519 
.91275 
. 98947 
.03863 
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